Actual source code: PetscTime.c

  1: /*$Id: PetscTime.c,v 1.21 2001/08/29 20:23:35 balay Exp $*/

 3:  #include petsc.h
  4: #include "petscfix.h"
 5:  #include src/sys/src/plog/ptime.h

  9: int main(int argc,char **argv)
 10: {
 11:   PetscLogDouble x,y;
 12:   int            i,ierr;

 14:   PetscInitialize(&argc,&argv,0,0);
 15:   /* To take care of paging effects */
 16:   PetscTime(y);

 18:   for (i=0; i<2; i++) {
 19:     PetscTime(x);
 20:     PetscTime(y);
 21:     PetscTime(y);
 22:     PetscTime(y);
 23:     PetscTime(y);
 24:     PetscTime(y);
 25:     PetscTime(y);
 26:     PetscTime(y);
 27:     PetscTime(y);
 28:     PetscTime(y);
 29:     PetscTime(y);

 31:     fprintf(stdout,"%-15s : %e sec\n","PetscTime",(y-x)/10.0);
 32:   }
 33:   PetscTime(x);
 34:   PetscSleep(10);
 35:   PetscTime(y);
 36:   fprintf(stdout,"%-15s : %e sec - Slept for 10 sec \n","PetscTime",(y-x));

 38:   PetscFinalize();
 39:   return(0);
 40: }