1*a5eb4965SSatish Balay #ifdef PETSC_RCS_HEADER 2*a5eb4965SSatish Balay static char vcid[] = "$Id: PetscTime.c,v 1.8 1997/03/09 18:00:35 bsmith Exp balay $"; 3d8e9fea7SSatish Balay #endif 4d8e9fea7SSatish Balay 5173c0623SSatish Balay #include "stdio.h" 6c0e5a298SSatish Balay #include "petsc.h" 7173c0623SSatish Balay #include "pinclude/ptime.h" 8173c0623SSatish Balay 9173c0623SSatish Balay int main( int argc, char **argv) 10173c0623SSatish Balay { 1147794344SBarry Smith PLogDouble x, y; 1277c4ece6SBarry Smith int i; 13173c0623SSatish Balay 1477c4ece6SBarry Smith PetscInitialize(&argc, &argv,0,0); 1598d6af09SSatish Balay /* To take care of paging effects */ 1698d6af09SSatish Balay PetscTime(y); 17173c0623SSatish Balay 1877c4ece6SBarry Smith for ( i=0; i<2; i++ ) { 19173c0623SSatish Balay PetscTime(x); 20173c0623SSatish Balay PetscTime(y); 21173c0623SSatish Balay PetscTime(y); 22173c0623SSatish Balay PetscTime(y); 23173c0623SSatish Balay PetscTime(y); 24173c0623SSatish Balay PetscTime(y); 25173c0623SSatish Balay PetscTime(y); 26173c0623SSatish Balay PetscTime(y); 27173c0623SSatish Balay PetscTime(y); 28173c0623SSatish Balay PetscTime(y); 29173c0623SSatish Balay PetscTime(y); 30173c0623SSatish Balay 31173c0623SSatish Balay fprintf(stderr,"%-15s : %e sec\n","PetscTime",(y-x)/10.0); 3277c4ece6SBarry Smith } 335176a447SSatish Balay PetscTime(x); 345176a447SSatish Balay PetscSleep(10); 355176a447SSatish Balay PetscTime(y); 365176a447SSatish Balay fprintf(stderr,"%-15s : %e sec - Slept for 10 sec \n","PetscTime",(y-x)); 375176a447SSatish Balay 38173c0623SSatish Balay PetscFinalize(); 39173c0623SSatish Balay return 0; 40173c0623SSatish Balay } 41