1 #include <petsc/private/ftnimpl.h> 2 #include <petscsys.h> 3 #include <petscviewer.h> 4 5 #if defined(PETSC_HAVE_FORTRAN_CAPS) 6 #define petscmallocdump_ PETSCMALLOCDUMP 7 #define petscmallocview_ PETSCMALLOCVIEW 8 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 9 #define petscmallocdump_ petscmallocdump 10 #define petscmallocview_ petscmallocview 11 #endif 12 13 PETSC_EXTERN void petscmallocdump_(PetscErrorCode *ierr) 14 { 15 *ierr = PetscMallocDump(stdout); 16 } 17 PETSC_EXTERN void petscmallocview_(PetscErrorCode *ierr) 18 { 19 *ierr = PetscMallocView(stdout); 20 } 21