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