xref: /petsc/src/benchmarks/MPI_Wtime.c (revision f3fe499b4cc4d64bf04aa4f5e4963dcc4eb56541)
1d8e9fea7SSatish Balay 
2d382aafbSBarry Smith #include "petscsys.h"
3173c0623SSatish Balay 
44a2ae208SSatish Balay #undef __FUNCT__
54a2ae208SSatish Balay #define __FUNCT__ "main"
6173c0623SSatish Balay int main(int argc,char **argv)
7173c0623SSatish Balay {
8173c0623SSatish Balay   double x,y;
99ae0b57aSSatish Balay   int    ierr;
10173c0623SSatish Balay 
1177c4ece6SBarry Smith   PetscInitialize(&argc,&argv,0,0);
1298d6af09SSatish Balay  /* To take care of paging effects */
1398d6af09SSatish Balay   y = MPI_Wtime();
14173c0623SSatish Balay 
15173c0623SSatish Balay   x = 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   y = MPI_Wtime();
25173c0623SSatish Balay   y = MPI_Wtime();
26173c0623SSatish Balay 
2735d8aa7fSBarry Smith   fprintf(stdout,"%-15s : %e sec\n","MPI_Wtime",(y-x)/10.0);
28b860a41fSSatish Balay   y = MPI_Wtick();
29b4d8b9abSSatish Balay   fprintf(stdout,"%-15s : %e sec\n","MPI_Wtick",y);
30b860a41fSSatish Balay 
3123fede2cSSatish Balay   x = MPI_Wtime();
32ac355199SBarry Smith   ierr = PetscSleep(10);CHKERRQ(ierr);
3323fede2cSSatish Balay   y = MPI_Wtime();
3435d8aa7fSBarry Smith   fprintf(stdout,"%-15s : %e sec - Slept for 10 sec \n","MPI_Wtime",(y-x));
35b860a41fSSatish Balay 
36*f3fe499bSBarry Smith   ierr = PetscFinalize();
373a40ed3dSBarry Smith   PetscFunctionReturn(0);
38173c0623SSatish Balay }
39