1*9ae0b57aSSatish Balay /*$Id: PetscTime.c,v 1.20 2001/03/23 23:25:45 balay Exp balay $*/ 2d8e9fea7SSatish Balay 3c0e5a298SSatish Balay #include "petsc.h" 4329f5518SBarry Smith #include "petscfix.h" 5*9ae0b57aSSatish Balay #include "src/sys/src/plog/ptime.h" 6173c0623SSatish Balay 74a2ae208SSatish Balay #undef __FUNCT__ 84a2ae208SSatish Balay #define __FUNCT__ "main" 9173c0623SSatish Balay int main(int argc,char **argv) 10173c0623SSatish Balay { 11b0a32e0cSBarry Smith PetscLogDouble x,y; 12*9ae0b57aSSatish Balay int i,ierr; 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); 34ac355199SBarry Smith ierr = PetscSleep(10);CHKERRQ(ierr); 355176a447SSatish Balay PetscTime(y); 3635d8aa7fSBarry Smith fprintf(stdout,"%-15s : %e sec - Slept for 10 sec \n","PetscTime",(y-x)); 375176a447SSatish Balay 382b7fea2aSSatish Balay ierr = PetscFinalize();CHKERRQ(ierr); 393a40ed3dSBarry Smith PetscFunctionReturn(0); 40173c0623SSatish Balay } 41