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