xref: /petsc/src/benchmarks/PetscGetTime.c (revision a438ae71ce233232332f459688a2b879b9a8b176)
1d8e9fea7SSatish Balay 
2c6db04a5SJed Brown #include <petscsys.h>
38563dfccSBarry Smith #include <petsctime.h>
4173c0623SSatish Balay 
54a2ae208SSatish Balay #undef __FUNCT__
64a2ae208SSatish Balay #define __FUNCT__ "main"
7173c0623SSatish Balay int main(int argc,char **argv)
8173c0623SSatish Balay {
9b0a32e0cSBarry Smith   PetscLogDouble x,y;
10*a438ae71SBarry Smith   PetscInt       i;
11*a438ae71SBarry Smith   PetscErrorCode ierr;
12173c0623SSatish Balay 
13*a438ae71SBarry Smith   ierr = PetscInitialize(&argc,&argv,0,0);if (ierr) return ierr;
1498d6af09SSatish Balay   /* To take care of paging effects */
158563dfccSBarry Smith   ierr = PetscTime(&y);CHKERRQ(ierr);
16173c0623SSatish Balay 
1777c4ece6SBarry Smith   for (i=0; i<2; i++) {
188563dfccSBarry Smith     ierr = PetscTime(&x);CHKERRQ(ierr);
198563dfccSBarry Smith     ierr = PetscTime(&y);CHKERRQ(ierr);
208563dfccSBarry Smith     ierr = PetscTime(&y);CHKERRQ(ierr);
218563dfccSBarry Smith     ierr = PetscTime(&y);CHKERRQ(ierr);
228563dfccSBarry Smith     ierr = PetscTime(&y);CHKERRQ(ierr);
238563dfccSBarry Smith     ierr = PetscTime(&y);CHKERRQ(ierr);
248563dfccSBarry Smith     ierr = PetscTime(&y);CHKERRQ(ierr);
258563dfccSBarry Smith     ierr = PetscTime(&y);CHKERRQ(ierr);
268563dfccSBarry Smith     ierr = PetscTime(&y);CHKERRQ(ierr);
278563dfccSBarry Smith     ierr = PetscTime(&y);CHKERRQ(ierr);
288563dfccSBarry Smith     ierr = PetscTime(&y);CHKERRQ(ierr);
298563dfccSBarry Smith     fprintf(stdout,"%-15s : %e sec\n","PetscTime",(y-x)/10.0);
3077c4ece6SBarry Smith   }
3177c4ece6SBarry Smith 
32f3fe499bSBarry Smith   ierr = PetscFinalize();
3326f47effSBarry Smith   return ierr;
34173c0623SSatish Balay }
35