1*6dd63270SBarry Smith #include <petsc/private/ftnimpl.h> 2c6db04a5SJed Brown #include <petscsys.h> 3665c2dedSJed Brown #include <petscviewer.h> 455fcb7f5SSatish Balay 555fcb7f5SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS) 655fcb7f5SSatish Balay #define petscmallocdump_ PETSCMALLOCDUMP 792f119d6SBarry Smith #define petscmallocview_ PETSCMALLOCVIEW 855fcb7f5SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 955fcb7f5SSatish Balay #define petscmallocdump_ petscmallocdump 1092f119d6SBarry Smith #define petscmallocview_ petscmallocview 1155fcb7f5SSatish Balay #endif 1255fcb7f5SSatish Balay petscmallocdump_(PetscErrorCode * ierr)1319caf8f3SSatish BalayPETSC_EXTERN void petscmallocdump_(PetscErrorCode *ierr) 1455fcb7f5SSatish Balay { 1555fcb7f5SSatish Balay *ierr = PetscMallocDump(stdout); 1655fcb7f5SSatish Balay } petscmallocview_(PetscErrorCode * ierr)1719caf8f3SSatish BalayPETSC_EXTERN void petscmallocview_(PetscErrorCode *ierr) 1855fcb7f5SSatish Balay { 1992f119d6SBarry Smith *ierr = PetscMallocView(stdout); 2055fcb7f5SSatish Balay } 21