xref: /petsc/src/benchmarks/PetscGetTime.c (revision 3e1910f1ab6113d8365e15c6b8c907ccce7ce4ea)
1 
2 #include <petscsys.h>
3 #include <petsctime.h>
4 
5 #undef __FUNCT__
6 #define __FUNCT__ "main"
7 int main(int argc,char **argv)
8 {
9   PetscLogDouble x,y;
10   int            i,ierr;
11 
12   PetscInitialize(&argc,&argv,0,0);
13   /* To take care of paging effects */
14   ierr = PetscTime(&y);CHKERRQ(ierr);
15 
16   for (i=0; i<2; i++) {
17     ierr = PetscTime(&x);CHKERRQ(ierr);
18     ierr = PetscTime(&y);CHKERRQ(ierr);
19     ierr = PetscTime(&y);CHKERRQ(ierr);
20     ierr = PetscTime(&y);CHKERRQ(ierr);
21     ierr = PetscTime(&y);CHKERRQ(ierr);
22     ierr = PetscTime(&y);CHKERRQ(ierr);
23     ierr = PetscTime(&y);CHKERRQ(ierr);
24     ierr = PetscTime(&y);CHKERRQ(ierr);
25     ierr = PetscTime(&y);CHKERRQ(ierr);
26     ierr = PetscTime(&y);CHKERRQ(ierr);
27     ierr = PetscTime(&y);CHKERRQ(ierr);
28 
29     fprintf(stdout,"%-15s : %e sec\n","PetscTime",(y-x)/10.0);
30   }
31 
32   ierr = PetscFinalize();
33   PetscFunctionReturn(0);
34 }
35