1*b0a32e0cSBarry Smith /*$Id: PetscTime.c,v 1.16 2000/11/28 17:32:38 bsmith Exp bsmith $*/ 2d8e9fea7SSatish Balay 3c0e5a298SSatish Balay #include "petsc.h" 4329f5518SBarry Smith #include "petscfix.h" 5*b0a32e0cSBarry Smith #include "src/sys/src/PetscLog/ptime.h" 6173c0623SSatish Balay 75a655dc6SBarry Smith #undef __FUNC__ 85a655dc6SBarry Smith #define __FUNC__ "main" 9173c0623SSatish Balay int main(int argc,char **argv) 10173c0623SSatish Balay { 11*b0a32e0cSBarry Smith PetscLogDouble 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 3135d8aa7fSBarry Smith fprintf(stdout,"%-15s : %e sec\n","PetscTime",(y-x)/10.0); 3277c4ece6SBarry Smith } 335176a447SSatish Balay PetscTime(x); 34be0abb6dSBarry Smith ierr = PetscSleep(10);CHKERRA(ierr); 355176a447SSatish Balay PetscTime(y); 3635d8aa7fSBarry Smith fprintf(stdout,"%-15s : %e sec - Slept for 10 sec \n","PetscTime",(y-x)); 375176a447SSatish Balay 38173c0623SSatish Balay PetscFinalize(); 393a40ed3dSBarry Smith PetscFunctionReturn(0); 40173c0623SSatish Balay } 41