1 #include <petsc/private/fortranimpl.h> 2 #include <petscviewer.h> 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define petsclogview_ PETSCLOGVIEW 6 #define petsclogeventbegin_ PETSCLOGEVENTBEGIN 7 #define petsclogeventend_ PETSCLOGEVENTEND 8 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 9 #define petsclogview_ petsclogview 10 #define petsclogeventbegin_ petsclogeventbegin 11 #define petsclogeventend_ petsclogeventend 12 #endif 13 14 PETSC_EXTERN void petsclogeventbegin_(PetscLogEvent *e, PetscErrorCode *ierr) 15 { 16 *ierr = PetscLogEventBegin(*e, 0, 0, 0, 0); 17 } 18 19 PETSC_EXTERN void petsclogeventend_(PetscLogEvent *e, PetscErrorCode *ierr) 20 { 21 *ierr = PetscLogEventEnd(*e, 0, 0, 0, 0); 22 } 23 24 PETSC_EXTERN void petsclogview_(PetscViewer *viewer, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len) 25 { 26 #if defined(PETSC_USE_LOG) 27 PetscViewer v; 28 PetscPatchDefaultViewers_Fortran(viewer, v); 29 *ierr = PetscLogView(v); 30 #endif 31 } 32