1c4762a1bSJed Brown static char help[] = "Augmenting PETSc profiling by add events.\n\ 2c4762a1bSJed Brown Run this program with one of the\n\ 3c4762a1bSJed Brown following options to generate logging information: -log, -log_view,\n\ 4c4762a1bSJed Brown -log_all. The PETSc routines automatically log event times and flops,\n\ 5c4762a1bSJed Brown so this monitoring is intended solely for users to employ in application\n\ 6c4762a1bSJed Brown codes.\n\n"; 7c4762a1bSJed Brown 8c4762a1bSJed Brown /* 9c4762a1bSJed Brown Include "petscsys.h" so that we can use PETSc profiling routines. 10c4762a1bSJed Brown */ 11c4762a1bSJed Brown #include <petscsys.h> 12c4762a1bSJed Brown #include <petscviewer.h> 13c4762a1bSJed Brown 14d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv) 15d71ae5a4SJacob Faibussowitsch { 16c4762a1bSJed Brown PetscMPIInt rank; 17c4762a1bSJed Brown int i, imax = 10000, icount; 18c4762a1bSJed Brown PetscLogEvent USER_EVENT, check_USER_EVENT; 19c4762a1bSJed Brown 20327415f7SBarry Smith PetscFunctionBeginUser; 219566063dSJacob Faibussowitsch PetscCall(PetscInitialize(&argc, &argv, NULL, help)); 22c4762a1bSJed Brown 23c4762a1bSJed Brown /* 24c4762a1bSJed Brown Create a new user-defined event. 25c4762a1bSJed Brown - Note that PetscLogEventRegister() returns to the user a unique 26c4762a1bSJed Brown integer event number, which should then be used for profiling 27c4762a1bSJed Brown the event via PetscLogEventBegin() and PetscLogEventEnd(). 28c4762a1bSJed Brown - The user can also optionally log floating point operations 29c4762a1bSJed Brown with the routine PetscLogFlops(). 30c4762a1bSJed Brown */ 319566063dSJacob Faibussowitsch PetscCall(PetscLogEventRegister("User event", PETSC_VIEWER_CLASSID, &USER_EVENT)); 329566063dSJacob Faibussowitsch PetscCall(PetscLogEventGetId("User event", &check_USER_EVENT)); 3308401ef6SPierre Jolivet PetscCheck(USER_EVENT == check_USER_EVENT, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Event Ids do not match"); 34c4762a1bSJed Brown 359566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(USER_EVENT, 0, 0, 0, 0)); 36c4762a1bSJed Brown icount = 0; 37c4762a1bSJed Brown for (i = 0; i < imax; i++) icount++; 38e57ab8abSSatish Balay (void)icount; 399566063dSJacob Faibussowitsch PetscCall(PetscLogFlops(imax)); 409566063dSJacob Faibussowitsch PetscCall(PetscSleep(0.5)); 419566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(USER_EVENT, 0, 0, 0, 0)); 42c4762a1bSJed Brown 43c4762a1bSJed Brown /* 44c4762a1bSJed Brown We disable the logging of an event. 45c4762a1bSJed Brown 46c4762a1bSJed Brown */ 479566063dSJacob Faibussowitsch PetscCall(PetscLogEventDeactivate(USER_EVENT)); 489566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(USER_EVENT, 0, 0, 0, 0)); 499566063dSJacob Faibussowitsch PetscCall(PetscSleep(0.5)); 509566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(USER_EVENT, 0, 0, 0, 0)); 51c4762a1bSJed Brown 52c4762a1bSJed Brown /* 53c4762a1bSJed Brown We next enable the logging of an event 54c4762a1bSJed Brown */ 559566063dSJacob Faibussowitsch PetscCall(PetscLogEventActivate(USER_EVENT)); 569566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(USER_EVENT, 0, 0, 0, 0)); 579566063dSJacob Faibussowitsch PetscCall(PetscSleep(0.5)); 589566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(USER_EVENT, 0, 0, 0, 0)); 59c4762a1bSJed Brown 60c4762a1bSJed Brown /* 61c4762a1bSJed Brown We test event logging imbalance 62c4762a1bSJed Brown */ 639566063dSJacob Faibussowitsch PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank)); 649566063dSJacob Faibussowitsch if (rank == 0) PetscCall(PetscSleep(0.5)); 659566063dSJacob Faibussowitsch PetscCall(PetscLogEventSync(USER_EVENT, PETSC_COMM_WORLD)); 669566063dSJacob Faibussowitsch PetscCall(PetscLogEventBegin(USER_EVENT, 0, 0, 0, 0)); 679566063dSJacob Faibussowitsch PetscCallMPI(MPI_Barrier(PETSC_COMM_WORLD)); 689566063dSJacob Faibussowitsch PetscCall(PetscSleep(0.5)); 699566063dSJacob Faibussowitsch PetscCall(PetscLogEventEnd(USER_EVENT, 0, 0, 0, 0)); 70c4762a1bSJed Brown 719566063dSJacob Faibussowitsch PetscCall(PetscFinalize()); 72b122ec5aSJacob Faibussowitsch return 0; 73c4762a1bSJed Brown } 74c4762a1bSJed Brown 75c4762a1bSJed Brown /*TEST 76c4762a1bSJed Brown 77c4762a1bSJed Brown build: 78dfd57a17SPierre Jolivet requires: defined(PETSC_USE_LOG) 79c4762a1bSJed Brown 80c4762a1bSJed Brown test: 81*3886731fSPierre Jolivet output_file: output/empty.out 82c4762a1bSJed Brown 83c4762a1bSJed Brown TEST*/ 84