xref: /petsc/src/sys/memory/ftn-custom/zmtrf.c (revision 789736e13dc7600624280f2f1d112db076e5d354)

#include <petsc/private/ftnimpl.h>
#include <petscsys.h>
#include <petscviewer.h>

#if defined(PETSC_HAVE_FORTRAN_CAPS)
  #define petscmallocdump_ PETSCMALLOCDUMP
  #define petscmallocview_ PETSCMALLOCVIEW
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
  #define petscmallocdump_ petscmallocdump
  #define petscmallocview_ petscmallocview
#endif

PETSC_EXTERN void petscmallocdump_(PetscErrorCode *ierr)
{
  *ierr = PetscMallocDump(stdout);
}
PETSC_EXTERN void petscmallocview_(PetscErrorCode *ierr)
{
  *ierr = PetscMallocView(stdout);
}