1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
/*
* Copyright (C) by Argonne National Laboratory
* See COPYRIGHT in top-level directory
*/
#include <stdio.h>
#include <stdlib.h>
#include "mpi.h"
#include "mpiimpl.h"
int main(int argc, char **argv)
{
double t1, t2;
double tick;
MPL_time_t l1, l2;
int i;
MPI_Init(&argc, &argv);
t1 = MPI_Wtime();
t2 = MPI_Wtime();
fprintf(stdout,
"Two successive calls to MPI_Wtime gave: (%f) (%f) diff (%f)\n", t1, t2, t2 - t1);
MPL_wtime(&l1);
MPL_wtime(&l2);
MPL_wtime_diff(&l1, &l2, &t1);
fprintf(stdout,
"Two successive calls to MPL_wtime gave: (%llx) (%llx) diff (%f)\n", l1, l2, t1);
fprintf(stdout, "Five approximations to one second:\n");
for (i = 0; i < 5; i++) {
t1 = MPI_Wtime();
sleep(1);
t2 = MPI_Wtime();
fprintf(stdout, "%f seconds\n", t2 - t1);
}
/* tick = MPI_Wtick();*/
fprintf(stdout, "MPI_Wtick gave: (%10.8f)\n", tick);
MPI_Finalize();
return 0;
}
|
