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: }