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