1*6dd63270SBarry Smith #include <petsc/private/ftnimpl.h> 2665c2dedSJed Brown #include <petscviewer.h> 35c6c1daeSBarry Smith 4519f805aSKarl Rupp #if defined(PETSC_HAVE_FORTRAN_CAPS) 55c6c1daeSBarry Smith #define petsclogeventbegin_ PETSCLOGEVENTBEGIN 65c6c1daeSBarry Smith #define petsclogeventend_ PETSCLOGEVENTEND 75c6c1daeSBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 85c6c1daeSBarry Smith #define petsclogeventbegin_ petsclogeventbegin 95c6c1daeSBarry Smith #define petsclogeventend_ petsclogeventend 105c6c1daeSBarry Smith #endif 115c6c1daeSBarry Smith 1219caf8f3SSatish Balay PETSC_EXTERN void petsclogeventbegin_(PetscLogEvent *e, PetscErrorCode *ierr) 13f5f7c1b9SKarl Rupp { 145c6c1daeSBarry Smith *ierr = PetscLogEventBegin(*e, 0, 0, 0, 0); 155c6c1daeSBarry Smith } 165c6c1daeSBarry Smith 1719caf8f3SSatish Balay PETSC_EXTERN void petsclogeventend_(PetscLogEvent *e, PetscErrorCode *ierr) 18f5f7c1b9SKarl Rupp { 195c6c1daeSBarry Smith *ierr = PetscLogEventEnd(*e, 0, 0, 0, 0); 205c6c1daeSBarry Smith } 21