diff options
author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-05-21 14:54:11 +0000 |
---|---|---|
committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-05-21 14:54:11 +0000 |
commit | 04df42c506fd6b0ac92315c46a40ee45e914d853 (patch) | |
tree | eb4ba9acfcacd8937f244424dfa48495b850e076 /src/cctk_Malloc.F90 | |
parent | 86fa57d8ecd6f24301233858266dac39a51e1d6d (diff) |
More interfaces
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@10 51d2df92-0e4f-0410-a727-bd43d766d6b6
Diffstat (limited to 'src/cctk_Malloc.F90')
-rw-r--r-- | src/cctk_Malloc.F90 | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/src/cctk_Malloc.F90 b/src/cctk_Malloc.F90 new file mode 100644 index 0000000..55d2775 --- /dev/null +++ b/src/cctk_Malloc.F90 @@ -0,0 +1,47 @@ +/*@@ + @file $RCSfile$ + @author $Author$ + @date $Date$ + @desc + Fortran 90 interface declarations for the routines + which have their C declarations in cctk_Malloc.h + @enddesc + @version $Header$ +@@*/ + +#include "cctk.h" + +module cctk_Malloc + implicit none + + interface + + subroutine CCTK_MemStat + implicit none + end subroutine CCTK_MemStat + + subroutine CCTK_TotalMemory (amount) + implicit none + integer amount + end subroutine CCTK_TotalMemory + + subroutine CCTK_MemTicketCash (diff, this_ticket) + implicit none + integer diff + integer this_ticket + end subroutine CCTK_MemTicketCash + + subroutine CCTK_MemTicketRequest (ticket) + implicit none + integer ticket + end subroutine CCTK_MemTicketRequest + + subroutine CCTK_MemTicketDelete (ierr, this_ticket) + implicit none + integer ierr + integer this_ticket + end subroutine CCTK_MemTicketDelete + + end interface + +end module cctk_Malloc |