Actual source code: MPI_Wtime.c
1: /*$Id: MPI_Wtime.c,v 1.16 2001/03/23 23:25:45 balay Exp $*/
3: #include petsc.h
5: int main(int argc,char **argv)
6: {
7: double x,y;
8:
9: PetscInitialize(&argc,&argv,0,0);
10: /* To take care of paging effects */
11: y = MPI_Wtime();
13: x = 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: y = MPI_Wtime();
25: fprintf(stdout,"%-15s : %e secn","MPI_Wtime",(y-x)/10.0);
26: y = MPI_Wtick();
27: fprintf(stderr,"%-15s : %e secn","MPI_Wtick",y);
29: x = MPI_Wtime();
30: PetscSleep(10);
31: y = MPI_Wtime();
32: fprintf(stdout,"%-15s : %e sec - Slept for 10 sec n","MPI_Wtime",(y-x));
34: PetscFinalize();
35: return(0);
36: }