9
#define SCF F77_FUNC(scf,SCF)
10
#define TIMER F77_FUNC_(timer,TIMER)
11
#define UTIL_TIME F77_FUNC_(util_time,UTIL_TIME)
12
#define UTIL_MTIME F77_FUNC_(util_mtime,UTIL_MTIME)
16
static int first_call = 1;
17
static double first_time, last_time, cur_time;
21
first_time = MPI_Wtime();
26
cur_time = MPI_Wtime();
27
diff = cur_time - first_time;
29
/* address crappy MPI_Wtime: consectutive calls must be at least 1ns apart */
30
if(diff - last_time < 1e-9) {
35
return diff; /* Add logic here for clock wrap */
41
return UTIL_TIME()*0.01;
45
int main(int argc, char **argv)
47
MPI_Init(&argc, &argv);