xref: /petsc/src/benchmarks/PetscTime.c (revision 4e5286726c13bf4e286916096f8c7484f9803e19)
1d8e9fea7SSatish Balay 
2c0e5a298SSatish Balay #include "petsc.h"
3329f5518SBarry Smith #include "petscfix.h"
4*4e528672SMatthew Knepley #include "petsctime.h"
5173c0623SSatish Balay 
64a2ae208SSatish Balay #undef __FUNCT__
74a2ae208SSatish Balay #define __FUNCT__ "main"
8173c0623SSatish Balay int main(int argc,char **argv)
9173c0623SSatish Balay {
10b0a32e0cSBarry Smith   PetscLogDouble x,y;
119ae0b57aSSatish Balay   int            i,ierr;
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 
3035d8aa7fSBarry Smith     fprintf(stdout,"%-15s : %e sec\n","PetscTime",(y-x)/10.0);
3177c4ece6SBarry Smith   }
325176a447SSatish Balay   PetscTime(x);
33ac355199SBarry Smith   ierr = PetscSleep(10);CHKERRQ(ierr);
345176a447SSatish Balay   PetscTime(y);
3535d8aa7fSBarry Smith   fprintf(stdout,"%-15s : %e sec - Slept for 10 sec \n","PetscTime",(y-x));
365176a447SSatish Balay 
372b7fea2aSSatish Balay   ierr = PetscFinalize();CHKERRQ(ierr);
383a40ed3dSBarry Smith   PetscFunctionReturn(0);
39173c0623SSatish Balay }
40