diff options
author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-04-02 08:18:37 +0000 |
---|---|---|
committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-04-02 08:18:37 +0000 |
commit | 6b9cc284760e086c3b1304fd4d10251d43ebced8 (patch) | |
tree | a2ba0d3f58d43576d9c132fbe398c7ddfc436607 /src/cctk_Cache.F90 | |
parent | 37f61f6b8176a0b402ece93327c1c970b5203794 (diff) |
Fortran prototypes for the Cactus flesh functions.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@2 51d2df92-0e4f-0410-a727-bd43d766d6b6
Diffstat (limited to 'src/cctk_Cache.F90')
-rw-r--r-- | src/cctk_Cache.F90 | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/src/cctk_Cache.F90 b/src/cctk_Cache.F90 new file mode 100644 index 0000000..388e4a5 --- /dev/null +++ b/src/cctk_Cache.F90 @@ -0,0 +1,29 @@ +/*@@ + @file $RCSfile$ + @author $Author$ + @date $Date$ + @desc + Fortran 90 interface declarations for the routines + which have their C declarations in cctk_Cache.h + @enddesc + @version $Header$ +@@*/ + +#include "cctk.h" + +module cctk_Cache + implicit none + + interface + + subroutine Util_CacheMalloc (pointer, index, size, realstart) + implicit none + CCTK_POINTER pointer + integer index + integer size + CCTK_POINTER realstart + end subroutine Util_CacheMalloc + + end interface + +end module cctk_Cache |