Interface para Medidas em MPI (cont.)
Exemplo: acumular o tempo gasto em MPI_Send( )
static double send_time = 0.0;
int MPI_Send(void* buffer, int count,
MPI_Datatype datatype, int dest, int tag, MPI_Comm comm) {
double start_time, finish_time;
start_time = MPI_Wtime();
return_val = PMPI_Send(buffer, count, datatype, dest, tag, comm);
finish_time = MPI_Wtime();
send_time = send_time + finish_time - start_time;
Obs: Esta rotina deve ser “linkada” antes da bibliot. de MPI