Date: 2013-07-02T14:52:30+00:00

Actual source code: MPI_Wtime.c
petsc-3.4.2 2013-07-02

      2: #include <petscsys.h>

      6: int main(int argc,char **argv)
      7: {
      8:   double x,y;
      9:   int    ierr;

     11:   PetscInitialize(&argc,&argv,0,0);
     12:   /* To take care of paging effects */
     13:   y = MPI_Wtime();

     15:   x = 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:   y = MPI_Wtime();
     24:   y = MPI_Wtime();
     25:   y = MPI_Wtime();

     27:   fprintf(stdout,"%-15s : %e sec\n","MPI_Wtime",(y-x)/10.0);
     28:   y = MPI_Wtick();
     29:   fprintf(stdout,"%-15s : %e sec\n","MPI_Wtick",y);

     31:   x    = MPI_Wtime();
     32:   PetscSleep(10);
     33:   y    = MPI_Wtime();
     34:   fprintf(stdout,"%-15s : %e sec - Slept for 10 sec \n","MPI_Wtime",(y-x));

     36:   PetscFinalize();
     37:   return(0);
     38: }