1: #include <petsc/private/ftnimpl.h> 2: #include <petscsys.h> 3: #include <petscviewer.h> 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 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: }