aboutsummaryrefslogtreecommitdiff
path: root/src/cctk_MemAlloc.F90
diff options
context:
space:
mode:
Diffstat (limited to 'src/cctk_MemAlloc.F90')
-rw-r--r--src/cctk_MemAlloc.F9039
1 files changed, 39 insertions, 0 deletions
diff --git a/src/cctk_MemAlloc.F90 b/src/cctk_MemAlloc.F90
new file mode 100644
index 0000000..eec8e04
--- /dev/null
+++ b/src/cctk_MemAlloc.F90
@@ -0,0 +1,39 @@
+/*@@
+ @file $RCSfile$
+ @author $Author$
+ @date $Date$
+ @desc
+ Fortran 90 interface declarations for the routines
+ which have their C declarations in cctk_MemAlloc.h
+ @enddesc
+ @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_MemAlloc
+ implicit none
+
+ interface
+
+ subroutine CCTK_Malloc (ptr, size, line, file)
+ implicit none
+ CCTK_POINTER ptr
+ integer size
+ integer line
+ character(*) file
+ end subroutine CCTK_Malloc
+
+ subroutine CCTK_Free (ptr)
+ implicit none
+ CCTK_POINTER ptr
+ end subroutine CCTK_Free
+
+ subroutine CCTK_TotalMemory (size)
+ implicit none
+ integer size
+ end subroutine CCTK_TotalMemory
+
+ end interface
+
+end module cctk_MemAlloc