1*2b7fea2aSSatish Balay /*$Id: MPI_Wtime.c,v 1.14 2001/01/17 22:28:38 bsmith Exp balay $*/ 2d8e9fea7SSatish Balay 3173c0623SSatish Balay #include "petsc.h" 4173c0623SSatish Balay 55a655dc6SBarry Smith #undef __FUNC__ 65a655dc6SBarry Smith #define __FUNC__ "main" 7173c0623SSatish Balay int main(int argc,char **argv) 8173c0623SSatish Balay { 9173c0623SSatish Balay double x,y; 10173c0623SSatish Balay 1177c4ece6SBarry Smith PetscInitialize(&argc,&argv,0,0); 1298d6af09SSatish Balay /* To take care of paging effects */ 1398d6af09SSatish Balay y = MPI_Wtime(); 14173c0623SSatish Balay 15173c0623SSatish Balay x = MPI_Wtime(); 16173c0623SSatish Balay y = MPI_Wtime(); 17173c0623SSatish Balay y = MPI_Wtime(); 18173c0623SSatish Balay y = MPI_Wtime(); 19173c0623SSatish Balay y = MPI_Wtime(); 20173c0623SSatish Balay y = MPI_Wtime(); 21173c0623SSatish Balay y = MPI_Wtime(); 22173c0623SSatish Balay y = MPI_Wtime(); 23173c0623SSatish Balay y = MPI_Wtime(); 24173c0623SSatish Balay y = MPI_Wtime(); 25173c0623SSatish Balay y = MPI_Wtime(); 26173c0623SSatish Balay 2735d8aa7fSBarry Smith fprintf(stdout,"%-15s : %e sec\n","MPI_Wtime",(y-x)/10.0); 28b860a41fSSatish Balay y = MPI_Wtick(); 29b860a41fSSatish Balay fprintf(stderr,"%-15s : %e sec\n","MPI_Wtick",y); 30b860a41fSSatish Balay 3123fede2cSSatish Balay x = MPI_Wtime(); 32ac355199SBarry Smith ierr = PetscSleep(10);CHKERRQ(ierr); 3323fede2cSSatish Balay y = MPI_Wtime(); 3435d8aa7fSBarry Smith fprintf(stdout,"%-15s : %e sec - Slept for 10 sec \n","MPI_Wtime",(y-x)); 35b860a41fSSatish Balay 36*2b7fea2aSSatish Balay ierr = PetscFinalize();CHKERRQ(ierr); 373a40ed3dSBarry Smith PetscFunctionReturn(0); 38173c0623SSatish Balay } 39