xref: /petsc/src/benchmarks/MPI_Wtime.c (revision 98d6af09988025285d7494520dad1c51ee4e4d54)
1 #include "stdio.h"
2 #include "petsc.h"
3 
4 int main( int argc, char **argv)
5 {
6   double x, y;
7 
8   PetscInitialize(&argc, &argv,0,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(stderr,"%-15s : %e sec\n","MPI_Wtime",(y-x)/10.0);
25   PetscFinalize();
26   return 0;
27 }
28