1: #include <petsc/private/fortranimpl.h> 2: #include <petscviewer.h> 4: #if defined(PETSC_HAVE_FORTRAN_CAPS) 5: #define petsclogflops_ PETSCLOGFLOPS 6: #define petscloggpuflops_ PETSCLOGGPUFLOPS 7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8: #define petsclogflops_ petsclogflops 9: #define petscloggpuflops_ petscloggpuflops 10: #endif 12: PETSC_EXTERN void petsclogflops_(PetscLogDouble *f, PetscErrorCode *ierr) 13: { 14: *ierr = PetscLogFlops(*f); 15: } 17: PETSC_EXTERN void petscloggpuflops_(PetscLogDouble *n, PetscErrorCode *ierr) 18: { 19: *ierr = PetscLogGpuFlops(*n); 20: }