1 #include <petscsys.h> 2 3 int main(int argc,char **argv) 4 { 5 double x,y; 6 int ierr; 7 8 PetscCall(PetscInitialize(&argc,&argv,0,0)); 9 /* To take care of paging effects */ 10 y = MPI_Wtime(); 11 12 x = MPI_Wtime(); 13 y = MPI_Wtime(); 14 y = MPI_Wtime(); 15 y = 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 24 fprintf(stdout,"%-15s : %e sec\n","MPI_Wtime",(y-x)/10.0); 25 y = MPI_Wtick(); 26 fprintf(stdout,"%-15s : %e sec\n","MPI_Wtick",y); 27 28 x = MPI_Wtime(); 29 PetscCall(PetscSleep(10)); 30 y = MPI_Wtime(); 31 fprintf(stdout,"%-15s : %e sec - Slept for 10 sec \n","MPI_Wtime",(y-x)); 32 33 PetscCall(PetscFinalize()); 34 return 0; 35 } 36