Actual source code: PLogEvent.c

 2:  #include petscsys.h

  6: int main(int argc,char **argv)
  7: {
  8:   PetscLogDouble x,y;
  9:   PetscLogEvent  e1;
 11:   PetscTruth     flg;

 13:   PetscInitialize(&argc,&argv,0,0);
 14:   PetscLogEventRegister("*DummyEvent",0,&e1);
 15:   /* To take care of the paging effects */
 16:   PetscGetTime(&x);
 17:   PetscLogEventBegin(e1,&x,0,0,0);
 18:   PetscLogEventEnd(e1,&x,0,0,0);

 20:   PetscGetTime(&x);
 21:   /* 10 Occurences of the dummy event */
 22:   PetscLogEventBegin(e1,&x,0,0,0);
 23:   PetscLogEventEnd(e1,&x,0,0,0);
 24:   PetscLogEventBegin(e1,&x,&y,0,0);
 25:   PetscLogEventEnd(e1,&x,&y,0,0);
 26:   PetscLogEventBegin(e1,&y,0,0,0);
 27:   PetscLogEventEnd(e1,&y,0,0,0);
 28:   PetscLogEventBegin(e1,&x,0,0,0);
 29:   PetscLogEventEnd(e1,&x,0,0,0);
 30:   PetscLogEventBegin(e1,&x,&y,0,0);
 31:   PetscLogEventEnd(e1,&x,&y,0,0);
 32:   PetscLogEventBegin(e1,&y,0,0,0);
 33:   PetscLogEventEnd(e1,&y,0,0,0);
 34:   PetscLogEventBegin(e1,&x,0,0,0);
 35:   PetscLogEventEnd(e1,&x,0,0,0);
 36:   PetscLogEventBegin(e1,&x,&y,0,0);
 37:   PetscLogEventEnd(e1,&x,&y,0,0);
 38:   PetscLogEventBegin(e1,&y,0,0,0);
 39:   PetscLogEventEnd(e1,&y,0,0,0);
 40:   PetscLogEventBegin(e1,&x,&e1,0,0);
 41:   PetscLogEventEnd(e1,&x,&e1,0,0);

 43:   PetscGetTime(&y);
 44:   fprintf(stderr,"%-15s : %e sec, with options : ","PetscLogEvent",(y-x)/10.0);

 46:   if(PetscOptionsHasName(PETSC_NULL,"-log",&flg),flg) fprintf(stderr,"-log ");
 47:   if(PetscOptionsHasName(PETSC_NULL,"-log_all",&flg),flg) fprintf(stderr,"-log_all ");
 48:   if(PetscOptionsHasName(PETSC_NULL,"-log_summary",&flg),flg) fprintf(stderr,"-log_summary ");
 49:   if(PetscOptionsHasName(PETSC_NULL,"-log_mpe",&flg),flg) fprintf(stderr,"-log_mpe ");
 50: 
 51:   fprintf(stderr,"\n");

 53:   PetscFinalize();
 54:   return(0);
 55: }