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