1 #include <petscsys.h>
2
main(int argc,char ** argv)3 int main(int argc, char **argv)
4 {
5 double x, y;
6 int ierr;
7
8 PetscCall(PetscInitialize(&argc, &argv, 0, 0));
9 /* To take care of paging effects */
10 y = MPI_Wtime();
11
12 x = MPI_Wtime();
13 y = MPI_Wtime();
14 y = MPI_Wtime();
15 y = MPI_Wtime();
16 y = MPI_Wtime();
17 y = MPI_Wtime();
18 y = MPI_Wtime();
19 y = MPI_Wtime();
20 y = MPI_Wtime();
21 y = MPI_Wtime();
22 y = MPI_Wtime();
23
24 fprintf(stdout, "%-15s : %e sec\n", "MPI_Wtime", (y - x) / 10.0);
25 y = MPI_Wtick();
26 fprintf(stdout, "%-15s : %e sec\n", "MPI_Wtick", y);
27
28 x = MPI_Wtime();
29 PetscCall(PetscSleep(10));
30 y = MPI_Wtime();
31 fprintf(stdout, "%-15s : %e sec - Slept for 10 sec \n", "MPI_Wtime", (y - x));
32
33 PetscCall(PetscFinalize());
34 return 0;
35 }
36