Actual source code: zmtrf.c

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