1a5eb4965SSatish Balay #ifdef PETSC_RCS_HEADER 2*be0abb6dSBarry Smith static char vcid[] = "$Id: PetscTime.c,v 1.11 1999/03/19 21:24:35 bsmith Exp bsmith $"; 3d8e9fea7SSatish Balay #endif 4d8e9fea7SSatish Balay 5c0e5a298SSatish Balay #include "petsc.h" 6173c0623SSatish Balay #include "pinclude/ptime.h" 7173c0623SSatish Balay 85a655dc6SBarry Smith #undef __FUNC__ 95a655dc6SBarry Smith #define __FUNC__ "main" 10173c0623SSatish Balay int main( int argc, char **argv) 11173c0623SSatish Balay { 1247794344SBarry Smith PLogDouble x, y; 1377c4ece6SBarry Smith int i; 14173c0623SSatish Balay 1577c4ece6SBarry Smith PetscInitialize(&argc, &argv,0,0); 1698d6af09SSatish Balay /* To take care of paging effects */ 1798d6af09SSatish Balay PetscTime(y); 18173c0623SSatish Balay 1977c4ece6SBarry Smith for ( i=0; i<2; i++ ) { 20173c0623SSatish Balay PetscTime(x); 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 PetscTime(y); 31173c0623SSatish Balay 32173c0623SSatish Balay fprintf(stderr,"%-15s : %e sec\n","PetscTime",(y-x)/10.0); 3377c4ece6SBarry Smith } 345176a447SSatish Balay PetscTime(x); 35*be0abb6dSBarry Smith ierr = PetscSleep(10);CHKERRA(ierr); 365176a447SSatish Balay PetscTime(y); 375176a447SSatish Balay fprintf(stderr,"%-15s : %e sec - Slept for 10 sec \n","PetscTime",(y-x)); 385176a447SSatish Balay 39173c0623SSatish Balay PetscFinalize(); 403a40ed3dSBarry Smith PetscFunctionReturn(0); 41173c0623SSatish Balay } 42