xref: /petsc/src/benchmarks/PetscGetTime.c (revision 0700a8246d308f50502909ba325e6169d3ee27eb)
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();CHKERRQ(ierr);
32   PetscFunctionReturn(0);
33 }
34