1: #include <petscsys.h>
2: #include <petsctime.h>
4: int main(int argc,char **argv)
5: {
6: PetscLogDouble x,y;
7: PetscInt i;
9: PetscCall(PetscInitialize(&argc,&argv,0,0));
10: /* To take care of paging effects */
11: PetscCall(PetscTime(&y));
13: for (i=0; i<2; i++) {
14: PetscCall(PetscTime(&x));
15: PetscCall(PetscTime(&y));
16: PetscCall(PetscTime(&y));
17: PetscCall(PetscTime(&y));
18: PetscCall(PetscTime(&y));
19: PetscCall(PetscTime(&y));
20: PetscCall(PetscTime(&y));
21: PetscCall(PetscTime(&y));
22: PetscCall(PetscTime(&y));
23: PetscCall(PetscTime(&y));
24: PetscCall(PetscTime(&y));
25: fprintf(stdout,"%-15s : %e sec\n","PetscTime",(y-x)/10.0);
26: }
28: PetscCall(PetscFinalize());
29: return 0;
30: }