Actual source code: zpetscloghf.c

  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: }