1 #include <petsc/private/ftnimpl.h> 2 #include <petscviewer.h> 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define petsclogeventbegin_ PETSCLOGEVENTBEGIN 6 #define petsclogeventend_ PETSCLOGEVENTEND 7 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8 #define petsclogeventbegin_ petsclogeventbegin 9 #define petsclogeventend_ petsclogeventend 10 #endif 11 12 PETSC_EXTERN void petsclogeventbegin_(PetscLogEvent *e, PetscErrorCode *ierr) 13 { 14 *ierr = PetscLogEventBegin(*e, 0, 0, 0, 0); 15 } 16 17 PETSC_EXTERN void petsclogeventend_(PetscLogEvent *e, PetscErrorCode *ierr) 18 { 19 *ierr = PetscLogEventEnd(*e, 0, 0, 0, 0); 20 } 21