1c6db04a5SJed Brown #include <petscsys.h> 28563dfccSBarry Smith #include <petsctime.h> 3173c0623SSatish Balay 4173c0623SSatish Balay int main(int argc, char **argv) 5173c0623SSatish Balay { 6b0a32e0cSBarry Smith PetscLogDouble x, y; 7166c7f25SBarry Smith PetscLogEvent e1; 8ace3abfcSBarry Smith PetscBool flg; 9173c0623SSatish Balay 10*9566063dSJacob Faibussowitsch PetscCall(PetscInitialize(&argc, &argv, 0, 0)); 118cbcd9ccSBarry Smith PetscLogEventRegister("*DummyEvent", 0, &e1); 1298d6af09SSatish Balay /* To take care of the paging effects */ 13*9566063dSJacob Faibussowitsch PetscCall(PetscTime(&x)); 14*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(e1, &x, 0, 0, 0)); 15*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(e1, &x, 0, 0, 0)); 16173c0623SSatish Balay 17*9566063dSJacob Faibussowitsch PetscCall(PetscTime(&x)); 18a5b23f4aSJose E. Roman /* 10 Occurrences of the dummy event */ 19*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(e1, &x, 0, 0, 0)); 20*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(e1, &x, 0, 0, 0)); 21*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(e1, &x, &y, 0, 0)); 22*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(e1, &x, &y, 0, 0)); 23*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(e1, &y, 0, 0, 0)); 24*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(e1, &y, 0, 0, 0)); 25*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(e1, &x, 0, 0, 0)); 26*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(e1, &x, 0, 0, 0)); 27*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(e1, &x, &y, 0, 0)); 28*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(e1, &x, &y, 0, 0)); 29*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(e1, &y, 0, 0, 0)); 30*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(e1, &y, 0, 0, 0)); 31*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(e1, &x, 0, 0, 0)); 32*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(e1, &x, 0, 0, 0)); 33*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(e1, &x, &y, 0, 0)); 34*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(e1, &x, &y, 0, 0)); 35*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(e1, &y, 0, 0, 0)); 36*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(e1, &y, 0, 0, 0)); 37*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(e1, &x, &e1, 0, 0)); 38*9566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(e1, &x, &e1, 0, 0)); 39173c0623SSatish Balay 40*9566063dSJacob Faibussowitsch PetscCall(PetscTime(&y)); 41b4d8b9abSSatish Balay fprintf(stderr, "%-15s : %e sec, with options : ", "PetscLogEvent", (y - x) / 10.0); 42173c0623SSatish Balay 43*9566063dSJacob Faibussowitsch PetscCall(PetscOptionsHasName(NULL, "-log", &flg)); 448caf3d72SBarry Smith if (flg) fprintf(stderr, "-log "); 45*9566063dSJacob Faibussowitsch PetscCall(PetscOptionsHasName(NULL, "-log_all", &flg)); 468caf3d72SBarry Smith if (flg) fprintf(stderr, "-log_all "); 47*9566063dSJacob Faibussowitsch PetscCall(PetscOptionsHasName(NULL, "-log_view", &flg)); 48609bdbeeSBarry Smith if (flg) fprintf(stderr, "-log_view "); 49*9566063dSJacob Faibussowitsch PetscCall(PetscOptionsHasName(NULL, "-log_mpe", &flg)); 508caf3d72SBarry Smith if (flg) fprintf(stderr, "-log_mpe "); 51173c0623SSatish Balay 52b4d8b9abSSatish Balay fprintf(stderr, "\n"); 53173c0623SSatish Balay 54*9566063dSJacob Faibussowitsch PetscCall(PetscFinalize()); 55b122ec5aSJacob Faibussowitsch return 0; 56173c0623SSatish Balay } 57