1 2 #include <petscsys.h> 3 4 #undef __FUNCT__ 5 #define __FUNCT__ "main" 6 int main(int argc,char **argv) 7 { 8 double x,y; 9 int ierr; 10 11 ierr = PetscInitialize(&argc,&argv,0,0);if (ierr) return ierr; 12 /* To take care of paging effects */ 13 y = MPI_Wtime(); 14 15 x = MPI_Wtime(); 16 y = MPI_Wtime(); 17 y = MPI_Wtime(); 18 y = MPI_Wtime(); 19 y = MPI_Wtime(); 20 y = MPI_Wtime(); 21 y = MPI_Wtime(); 22 y = MPI_Wtime(); 23 y = MPI_Wtime(); 24 y = MPI_Wtime(); 25 y = MPI_Wtime(); 26 27 fprintf(stdout,"%-15s : %e sec\n","MPI_Wtime",(y-x)/10.0); 28 y = MPI_Wtick(); 29 fprintf(stdout,"%-15s : %e sec\n","MPI_Wtick",y); 30 31 x = MPI_Wtime(); 32 ierr = PetscSleep(10);CHKERRQ(ierr); 33 y = MPI_Wtime(); 34 fprintf(stdout,"%-15s : %e sec - Slept for 10 sec \n","MPI_Wtime",(y-x)); 35 36 ierr = PetscFinalize(); 37 return ierr; 38 } 39