Actual source code: PLogEvent.c
1: /*$Id: PLogEvent.c,v 1.24 2001/08/29 20:59:35 balay Exp $*/
3: #include petsc.h
5: int main(int argc,char **argv)
6: {
7: PetscLogDouble x,y;
8: int e1,ierr;
9: PetscTruth flg;
11: PetscInitialize(&argc,&argv,0,0);
12: PetscLogEventRegister(&e1,"*DummyEvent",0);
13: /* To take care of the paging effects */
14: PetscGetTime(&x);
15: PetscLogEventBegin(e1,&x,0,0,0);
16: PetscLogEventEnd(e1,&x,0,0,0);
18: PetscGetTime(&x);
19: /* 10 Occurences of the dummy event */
20: PetscLogEventBegin(e1,&x,0,0,0);
21: PetscLogEventEnd(e1,&x,0,0,0);
22: PetscLogEventBegin(e1,&x,&y,0,0);
23: PetscLogEventEnd(e1,&x,&y,0,0);
24: PetscLogEventBegin(e1,&y,0,0,0);
25: PetscLogEventEnd(e1,&y,0,0,0);
26: PetscLogEventBegin(e1,&x,0,0,0);
27: PetscLogEventEnd(e1,&x,0,0,0);
28: PetscLogEventBegin(e1,&x,&y,0,0);
29: PetscLogEventEnd(e1,&x,&y,0,0);
30: PetscLogEventBegin(e1,&y,0,0,0);
31: PetscLogEventEnd(e1,&y,0,0,0);
32: PetscLogEventBegin(e1,&x,0,0,0);
33: PetscLogEventEnd(e1,&x,0,0,0);
34: PetscLogEventBegin(e1,&x,&y,0,0);
35: PetscLogEventEnd(e1,&x,&y,0,0);
36: PetscLogEventBegin(e1,&y,0,0,0);
37: PetscLogEventEnd(e1,&y,0,0,0);
38: PetscLogEventBegin(e1,&x,&e1,0,0);
39: PetscLogEventEnd(e1,&x,&e1,0,0);
41: PetscGetTime(&y);
42: fprintf(stderr,"%-15s : %e sec, with options : ","PetscLogEvent",(y-x)/10.0);
44: if(PetscOptionsHasName(PETSC_NULL,"-log",&flg),flg) fprintf(stderr,"-log ");
45: if(PetscOptionsHasName(PETSC_NULL,"-log_all",&flg),flg) fprintf(stderr,"-log_all ");
46: if(PetscOptionsHasName(PETSC_NULL,"-log_summary",&flg),flg) fprintf(stderr,"-log_summary ");
47: if(PetscOptionsHasName(PETSC_NULL,"-log_mpe",&flg),flg) fprintf(stderr,"-log_mpe ");
48:
49: fprintf(stderr,"n");
51: PetscFinalize();
52: return(0);
53: }