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
petsclogeventbegin_(PetscLogEvent * e,PetscErrorCode * ierr)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
petsclogeventend_(PetscLogEvent * e,PetscErrorCode * ierr)1719caf8f3SSatish Balay PETSC_EXTERN void petsclogeventend_(PetscLogEvent *e, PetscErrorCode *ierr)
18f5f7c1b9SKarl Rupp {
195c6c1daeSBarry Smith *ierr = PetscLogEventEnd(*e, 0, 0, 0, 0);
205c6c1daeSBarry Smith }
21