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