Actual source code: zplogf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscviewer.h>
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
12: PETSC_EXTERN void petsclogeventbegin_(PetscLogEvent *e, PetscErrorCode *ierr)
13: {
14: *ierr = PetscLogEventBegin(*e, 0, 0, 0, 0);
15: }
17: PETSC_EXTERN void petsclogeventend_(PetscLogEvent *e, PetscErrorCode *ierr)
18: {
19: *ierr = PetscLogEventEnd(*e, 0, 0, 0, 0);
20: }