1 #ifdef PETSC_RCS_HEADER 2 static char vcid[] = "$Id: MPI_Wtime.c,v 1.9 1999/03/19 21:24:35 bsmith Exp bsmith $"; 3 #endif 4 5 #include "petsc.h" 6 7 #undef __FUNC__ 8 #define __FUNC__ "main" 9 int main( int argc, char **argv) 10 { 11 double x, y; 12 13 PetscInitialize(&argc, &argv,0,0); 14 /* To take care of paging effects */ 15 y = MPI_Wtime(); 16 17 x = 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 y = MPI_Wtime(); 27 y = MPI_Wtime(); 28 29 fprintf(stderr,"%-15s : %e sec\n","MPI_Wtime",(y-x)/10.0); 30 y = MPI_Wtick(); 31 fprintf(stderr,"%-15s : %e sec\n","MPI_Wtick",y); 32 33 x = MPI_Wtime(); 34 ierr = PetscSleep(10);CHKERRA(ierr); 35 y = MPI_Wtime(); 36 fprintf(stderr,"%-15s : %e sec - Slept for 10 sec \n","MPI_Wtime",(y-x)); 37 38 PetscFinalize(); 39 PetscFunctionReturn(0); 40 } 41