Actual source code: MPI_Wtime.c

  1: /*$Id: MPI_Wtime.c,v 1.16 2001/03/23 23:25:45 balay Exp $*/

  3: #include "petsc.h"

  5: int main(int argc,char **argv)
  6: {
  7:   double x,y;
  8: 
  9:   PetscInitialize(&argc,&argv,0,0);
 10:  /* To take care of paging effects */
 11:   y = MPI_Wtime();

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

 25:   fprintf(stdout,"%-15s : %e secn","MPI_Wtime",(y-x)/10.0);
 26:   y = MPI_Wtick();
 27:   fprintf(stderr,"%-15s : %e secn","MPI_Wtick",y);

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

 34:   PetscFinalize();
 35:   return(0);
 36: }