1a5eb4965SSatish Balay #ifdef PETSC_RCS_HEADER 2*3a40ed3dSBarry Smith static char vcid[] = "$Id: PetscTime.c,v 1.9 1997/07/09 21:01:29 balay Exp bsmith $"; 3d8e9fea7SSatish Balay #endif 4d8e9fea7SSatish Balay 5c0e5a298SSatish Balay #include "petsc.h" 6173c0623SSatish Balay #include "pinclude/ptime.h" 7173c0623SSatish Balay 8173c0623SSatish Balay int main( int argc, char **argv) 9173c0623SSatish Balay { 1047794344SBarry Smith PLogDouble x, y; 1177c4ece6SBarry Smith int i; 12173c0623SSatish Balay 1377c4ece6SBarry Smith PetscInitialize(&argc, &argv,0,0); 1498d6af09SSatish Balay /* To take care of paging effects */ 1598d6af09SSatish Balay PetscTime(y); 16173c0623SSatish Balay 1777c4ece6SBarry Smith for ( i=0; i<2; i++ ) { 18173c0623SSatish Balay PetscTime(x); 19173c0623SSatish Balay PetscTime(y); 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 30173c0623SSatish Balay fprintf(stderr,"%-15s : %e sec\n","PetscTime",(y-x)/10.0); 3177c4ece6SBarry Smith } 325176a447SSatish Balay PetscTime(x); 335176a447SSatish Balay PetscSleep(10); 345176a447SSatish Balay PetscTime(y); 355176a447SSatish Balay fprintf(stderr,"%-15s : %e sec - Slept for 10 sec \n","PetscTime",(y-x)); 365176a447SSatish Balay 37173c0623SSatish Balay PetscFinalize(); 38*3a40ed3dSBarry Smith PetscFunctionReturn(0); 39173c0623SSatish Balay } 40