Actual source code: PetscGetTime.c


  2: #include <petscsys.h>
  3: #include <petsctime.h>

  5: int main(int argc,char **argv)
  6: {
  7:   PetscLogDouble x,y;
  8:   PetscInt       i;

 10:   PetscCall(PetscInitialize(&argc,&argv,0,0));
 11:   /* To take care of paging effects */
 12:   PetscCall(PetscTime(&y));

 14:   for (i=0; i<2; i++) {
 15:     PetscCall(PetscTime(&x));
 16:     PetscCall(PetscTime(&y));
 17:     PetscCall(PetscTime(&y));
 18:     PetscCall(PetscTime(&y));
 19:     PetscCall(PetscTime(&y));
 20:     PetscCall(PetscTime(&y));
 21:     PetscCall(PetscTime(&y));
 22:     PetscCall(PetscTime(&y));
 23:     PetscCall(PetscTime(&y));
 24:     PetscCall(PetscTime(&y));
 25:     PetscCall(PetscTime(&y));
 26:     fprintf(stdout,"%-15s : %e sec\n","PetscTime",(y-x)/10.0);
 27:   }

 29:   PetscCall(PetscFinalize());
 30:   return 0;
 31: }