xref: /petsc/src/benchmarks/PetscGetCPUTime.c (revision 26f47eff063a7233c2b7037a486dfc0255a5559a)
1b620a312SSatish Balay 
24cd03b37SPatrick Sanan #include <petsctime.h>
3b620a312SSatish Balay 
44a2ae208SSatish Balay #undef __FUNCT__
54a2ae208SSatish Balay #define __FUNCT__ "main"
6b620a312SSatish Balay int main(int argc,char **argv)
7b620a312SSatish Balay {
8b0a32e0cSBarry Smith   PetscLogDouble x,y;
9d3093643SSatish Balay   long int       i,j,A[100000],ierr;
10b620a312SSatish Balay 
11b620a312SSatish Balay   PetscInitialize(&argc,&argv,0,0);
12b620a312SSatish Balay   /* To take care of paging effects */
13ac355199SBarry Smith   ierr = PetscGetCPUTime(&y);CHKERRQ(ierr);
14b620a312SSatish Balay 
15b620a312SSatish Balay   for (i=0; i<2; i++) {
16ac355199SBarry Smith     ierr = PetscGetCPUTime(&x);CHKERRQ(ierr);
17b620a312SSatish Balay 
18b620a312SSatish Balay     /*
19b620a312SSatish Balay        Do some work for at least 1 ms. Most CPU timers
20b620a312SSatish Balay        cannot measure anything less than that
21b620a312SSatish Balay      */
22b620a312SSatish Balay 
236f2b61bcSKarl Rupp     for (j=0; j<20000*(i+1); j++) A[j]=i+j;
24ac355199SBarry Smith     ierr = PetscGetCPUTime(&y);CHKERRQ(ierr);
25b4d8b9abSSatish Balay     fprintf(stdout,"%-15s : %e sec\n","PetscGetCPUTime",(y-x)/10.0);
26b620a312SSatish Balay   }
27b620a312SSatish Balay 
28f3fe499bSBarry Smith   ierr = PetscFinalize();
29*26f47effSBarry Smith   return ierr;
30b620a312SSatish Balay }
31