xref: /petsc/src/benchmarks/MPI_Wtime.c (revision 77c4ece699e97450631aa6fc5b0ef04ff52df029)
1 #ifndef lint
2 static char vcid[] = "$Id: MPI_Wtime.c,v 1.3 1996/03/06 17:40:32 balay Exp bsmith $";
3 #endif
4 
5 #include "stdio.h"
6 #include "petsc.h"
7 
8 int main( int argc, char **argv)
9 {
10   double x, y;
11 
12   PetscInitialize(&argc, &argv,0,0);
13  /* To take care of paging effects */
14   y = MPI_Wtime();
15 
16   x = 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   y = MPI_Wtime();
24   y = MPI_Wtime();
25   y = MPI_Wtime();
26   y = MPI_Wtime();
27 
28   fprintf(stderr,"%-15s : %e sec\n","MPI_Wtime",(y-x)/10.0);
29   PetscFinalize();
30   return 0;
31 }
32