1 #include "private/fortranimpl.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 #define petscmemoryshowusage_ PETSCMEMORYSHOWUSAGE 9 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 10 #define petscmallocdump_ petscmallocdump 11 #define petscmallocdumplog_ petscmallocdumplog 12 #define petscmallocvalidate_ petscmallocvalidate 13 #define petscmemoryshowusage_ petscmemoryshowusage 14 #endif 15 16 EXTERN_C_BEGIN 17 void PETSC_STDCALL petscmallocdump_(PetscErrorCode *ierr) 18 { 19 *ierr = PetscMallocDump(stdout); 20 } 21 void PETSC_STDCALL petscmallocdumplog_(PetscErrorCode *ierr) 22 { 23 *ierr = PetscMallocDumpLog(stdout); 24 } 25 26 void PETSC_STDCALL petscmallocvalidate_(PetscErrorCode *ierr) 27 { 28 *ierr = PetscMallocValidate(0,"Unknown Fortran",0,0); 29 } 30 31 void PETSC_STDCALL petscmemoryshowusage_(PetscViewer *vin, CHAR message PETSC_MIXED_LEN(len), PetscErrorCode *ierr PETSC_END_LEN(len)) 32 { 33 PetscViewer v; 34 char *msg; 35 36 FIXCHAR(message,len,msg); 37 PetscPatchDefaultViewers_Fortran(vin,v); 38 *ierr = PetscMemoryShowUsage(v,msg); 39 FREECHAR(message,msg); 40 } 41 42 EXTERN_C_END 43