xref: /petsc/src/benchmarks/MPI_Wtime.c (revision 5f80ce2ab25dff0f4601e710601cbbcecf323266)
1d8e9fea7SSatish Balay 
2c6db04a5SJed Brown #include <petscsys.h>
3173c0623SSatish Balay 
4173c0623SSatish Balay int main(int argc,char **argv)
5173c0623SSatish Balay {
6173c0623SSatish Balay   double x,y;
79ae0b57aSSatish Balay   int    ierr;
8173c0623SSatish Balay 
9a438ae71SBarry Smith   ierr = PetscInitialize(&argc,&argv,0,0);if (ierr) return ierr;
1098d6af09SSatish Balay   /* To take care of paging effects */
1198d6af09SSatish Balay   y = MPI_Wtime();
12173c0623SSatish Balay 
13173c0623SSatish Balay   x = MPI_Wtime();
14173c0623SSatish Balay   y = MPI_Wtime();
15173c0623SSatish Balay   y = MPI_Wtime();
16173c0623SSatish Balay   y = MPI_Wtime();
17173c0623SSatish Balay   y = MPI_Wtime();
18173c0623SSatish Balay   y = MPI_Wtime();
19173c0623SSatish Balay   y = MPI_Wtime();
20173c0623SSatish Balay   y = MPI_Wtime();
21173c0623SSatish Balay   y = MPI_Wtime();
22173c0623SSatish Balay   y = MPI_Wtime();
23173c0623SSatish Balay   y = MPI_Wtime();
24173c0623SSatish Balay 
2535d8aa7fSBarry Smith   fprintf(stdout,"%-15s : %e sec\n","MPI_Wtime",(y-x)/10.0);
26b860a41fSSatish Balay   y = MPI_Wtick();
27b4d8b9abSSatish Balay   fprintf(stdout,"%-15s : %e sec\n","MPI_Wtick",y);
28b860a41fSSatish Balay 
2923fede2cSSatish Balay   x    = MPI_Wtime();
30*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscSleep(10));
3123fede2cSSatish Balay   y    = MPI_Wtime();
3235d8aa7fSBarry Smith   fprintf(stdout,"%-15s : %e sec - Slept for 10 sec \n","MPI_Wtime",(y-x));
33b860a41fSSatish Balay 
34f3fe499bSBarry Smith   ierr = PetscFinalize();
3526f47effSBarry Smith   return ierr;
36173c0623SSatish Balay }
37