1 #include "stdio.h" 2 #include "petsc.h" 3 4 int main( int argc, char **argv) 5 { 6 double x, y; 7 int e1, flg; 8 9 PetscInitialize(&argc, &argv,0,0,0); 10 PLogEventRegister(&e1,"*DummyEvent ", "red"); 11 12 x = PetscGetTime(); 13 14 /* 10 Occurences of the dummy event */ 15 PLogEventBegin(e1,&x,0,0,0); 16 PLogEventEnd(e1,&x,0,0,0); 17 PLogEventBegin(e1,&x,&y,0,0); 18 PLogEventEnd(e1,&x,&y,0,0); 19 PLogEventBegin(e1,&y,0,0,0); 20 PLogEventEnd(e1,&y,0,0,0); 21 PLogEventBegin(e1,&x,0,0,0); 22 PLogEventEnd(e1,&x,0,0,0); 23 PLogEventBegin(e1,&x,&y,0,0); 24 PLogEventEnd(e1,&x,&y,0,0); 25 PLogEventBegin(e1,&y,0,0,0); 26 PLogEventEnd(e1,&y,0,0,0); 27 PLogEventBegin(e1,&x,0,0,0); 28 PLogEventEnd(e1,&x,0,0,0); 29 PLogEventBegin(e1,&x,&y,0,0); 30 PLogEventEnd(e1,&x,&y,0,0); 31 PLogEventBegin(e1,&y,0,0,0); 32 PLogEventEnd(e1,&y,0,0,0); 33 PLogEventBegin(e1,&x,&e1,0,0); 34 PLogEventEnd(e1,&x,&e1,0,0); 35 36 y = PetscGetTime(); 37 fprintf(stderr,"%-15s : %e sec , with options : ","PLogEvent",(y-x)/10.0); 38 39 if(OptionsHasName(PETSC_NULL,"-log",&flg),flg) fprintf(stderr,"-log "); 40 if(OptionsHasName(PETSC_NULL,"-log_all",&flg),flg) fprintf(stderr,"-log_all "); 41 if(OptionsHasName(PETSC_NULL,"-log_summary",&flg),flg) fprintf(stderr,"-log_summary "); 42 if(OptionsHasName(PETSC_NULL,"-log_mpe",&flg),flg) fprintf(stderr,"-log_mpe "); 43 44 fprintf(stderr,"\n"); 45 46 PetscFinalize(); 47 return 0; 48 } 49