1 #include "zpetsc.h" 2 #include "petsc.h" 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define petscmallocdump_ PETSCMALLOCDUMP 6 #define petscmallocdumplog_ PETSCMALLOCDUMPLOG 7 #define petscmallocvalidate_ PETSCMALLOCVALIDATE 8 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 9 #define petscmallocdump_ petscmallocdump 10 #define petscmallocdumplog_ petscmallocdumplog 11 #define petscmallocvalidate_ petscmallocvalidate 12 #endif 13 14 EXTERN_C_BEGIN 15 void PETSC_STDCALL petscmallocdump_(PetscErrorCode *ierr) 16 { 17 *ierr = PetscMallocDump(stdout); 18 } 19 void PETSC_STDCALL petscmallocdumplog_(PetscErrorCode *ierr) 20 { 21 *ierr = PetscMallocDumpLog(stdout); 22 } 23 24 void PETSC_STDCALL petscmallocvalidate_(PetscErrorCode *ierr) 25 { 26 *ierr = PetscMallocValidate(0,"Unknown Fortran",0,0); 27 } 28 29 EXTERN_C_END 30