Add one more file of interfaces

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@7 51d2df92-0e4f-0410-a727-bd43d766d6b6

3 files changed, 327 insertions, 0 deletions

diff --git a/src/cctk.F90 b/src/cctk.F90
index b320c27..4197da3 100644
--- a/src/cctk.F90
+++ b/src/cctk.F90
@@ -28,5 +28,6 @@ module cctk
   use cctk_GHExtensions
   use cctk_GNU
   use cctk_Groups
+  use cctk_GroupsOnGH
   implicit none
 end module cctk
diff --git a/src/cctk_GroupsOnGH.F90 b/src/cctk_GroupsOnGH.F90
new file mode 100644
index 0000000..8dc2019
--- /dev/null
+++ b/src/cctk_GroupsOnGH.F90
@@ -0,0 +1,325 @@
+/*@@
+  @file    $RCSfile$
+  @author  $Author$
+  @date    $Date$
+  @desc
+           Fortran 90 interface declarations for the routines
+           which have their C declarations in cctk_GroupsOnGH.h
+  @enddesc
+  @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_GroupsOnGH
+  implicit none
+
+  interface
+
+     subroutine CCTK_VarDataPtr (ptr, GH, timelevel, fullvarname)
+       implicit none
+       CCTK_POINTER          ptr
+       CCTK_POINTER_TO_CONST GH
+       integer               timelevel
+       character(*)          fullvarname
+     end subroutine CCTK_VarDataPtr
+
+     subroutine CCTK_VarDataPtrI (ptr, GH, timelevel, varindex)
+       implicit none
+       CCTK_POINTER          ptr
+       CCTK_POINTER_TO_CONST GH
+       integer               timelevel
+       integer               varindex
+     end subroutine CCTK_VarDataPtrI
+
+     subroutine CCTK_VarDataPtrB (ptr, GH, timelevel, varindex, fullvarname)
+       implicit none
+       CCTK_POINTER          ptr
+       CCTK_POINTER_TO_CONST GH
+       integer               timelevel
+       integer               varindex
+       character(*)          fullvarname
+     end subroutine CCTK_VarDataPtrB
+
+     subroutine CCTK_DisableGroupStorageI (ierr, GH, group)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               group
+     end subroutine CCTK_DisableGroupStorageI
+
+     subroutine CCTK_DisableGroupCommI (ierr, GH, group)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               group
+     end subroutine CCTK_DisableGroupCommI
+
+     subroutine CCTK_EnableGroupStorageI (ierr, GH, group)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               group
+     end subroutine CCTK_EnableGroupStorageI
+
+     subroutine CCTK_EnableGroupCommI (ierr, GH, group)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               group
+     end subroutine CCTK_EnableGroupCommI
+
+     subroutine CCTK_GrouplbndGN (ierr, GH, dim, lbnd, groupname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               lbnd(dim)
+       character(*)          groupname
+     end subroutine CCTK_GrouplbndGN
+
+     subroutine CCTK_GrouplbndVN (ierr, GH, dim, lbnd, varname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               lbnd(dim)
+       character(*)          varname
+     end subroutine CCTK_GrouplbndVN
+
+     subroutine CCTK_GrouplbndGI (ierr, GH, dim, lbnd, groupindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               lbnd(dim)
+       integer               groupindex
+     end subroutine CCTK_GrouplbndGI
+
+     subroutine CCTK_GrouplbndVI (ierr, GH, dim, lbnd, varindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               lbnd(dim)
+       integer               varindex
+     end subroutine CCTK_GrouplbndVI
+
+     subroutine CCTK_GroupubndGN (ierr, GH, dim, ubnd, groupname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               ubnd(dim)
+       character(*)          groupname
+     end subroutine CCTK_GroupubndGN
+
+     subroutine CCTK_GroupubndVN (ierr, GH, dim, ubnd, varname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               ubnd(dim)
+       character(*)          varname
+     end subroutine CCTK_GroupubndVN
+
+     subroutine CCTK_GroupubndGI (ierr, GH, dim, ubnd, groupindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               ubnd(dim)
+       integer               groupindex
+     end subroutine CCTK_GroupubndGI
+
+     subroutine CCTK_GroupubndVI (ierr, GH, dim, ubnd, varindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               ubnd(dim)
+       integer               varindex
+     end subroutine CCTK_GroupubndVI
+
+     subroutine CCTK_GrouplshGN (ierr, GH, dim, lsh, groupname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               lsh(dim)
+       character(*)          groupname
+     end subroutine CCTK_GrouplshGN
+
+     subroutine CCTK_GrouplshVN (ierr, GH, dim, lsh, varname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               lsh(dim)
+       character(*)          varname
+     end subroutine CCTK_GrouplshVN
+
+     subroutine CCTK_GrouplshGI (ierr, GH, dim, lsh, groupindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               lsh(dim)
+       integer               groupindex
+     end subroutine CCTK_GrouplshGI
+
+     subroutine CCTK_GrouplshVI (ierr, GH, dim, lsh, varindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               lsh(dim)
+       integer               varindex
+     end subroutine CCTK_GrouplshVI
+
+     subroutine CCTK_GroupgshGN (ierr, GH, dim, gsh, groupname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               gsh(dim)
+       character(*)          groupname
+     end subroutine CCTK_GroupgshGN
+
+     subroutine CCTK_GroupgshVN (ierr, GH, dim, gsh, varname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               gsh(dim)
+       character(*)          varname
+     end subroutine CCTK_GroupgshVN
+
+     subroutine CCTK_GroupgshGI (ierr, GH, dim, gsh, groupindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               gsh(dim)
+       integer               groupindex
+     end subroutine CCTK_GroupgshGI
+
+     subroutine CCTK_GroupgshVI (ierr, GH, dim, gsh, varindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               gsh(dim)
+       integer               varindex
+     end subroutine CCTK_GroupgshVI
+
+     subroutine CCTK_GroupbboxGN (ierr, GH, size, bbox, groupname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               size
+       integer               bbox(size)
+       character(*)          groupname
+     end subroutine CCTK_GroupbboxGN
+
+     subroutine CCTK_GroupbboxVN (ierr, GH, size, bbox, varname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               size
+       integer               bbox(size)
+       character(*)          varname
+     end subroutine CCTK_GroupbboxVN
+
+     subroutine CCTK_GroupbboxGI (ierr, GH, size, bbox, groupindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               size
+       integer               bbox(size)
+       integer               groupindex
+     end subroutine CCTK_GroupbboxGI
+
+     subroutine CCTK_GroupbboxVI (ierr, GH, size, bbox, varindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               size
+       integer               bbox(size)
+       integer               varindex
+     end subroutine CCTK_GroupbboxVI
+
+     subroutine CCTK_GroupnghostzonesGN (ierr, GH, dim, nghostzones, groupname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               nghostzones(dim)
+       character(*)          groupname
+     end subroutine CCTK_GroupnghostzonesGN
+
+     subroutine CCTK_GroupnghostzonesVN (ierr, GH, dim, nghostzones, varname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               nghostzones(dim)
+       character(*)          varname
+     end subroutine CCTK_GroupnghostzonesVN
+
+     subroutine CCTK_GroupnghostzonesGI (ierr, GH, dim, nghostzones, groupindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               nghostzones(dim)
+       integer               groupindex
+     end subroutine CCTK_GroupnghostzonesGI
+
+     subroutine CCTK_GroupnghostzonesVI (ierr, GH, dim, nghostzones, varindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               dim
+       integer               nghostzones(dim)
+       integer               varindex
+     end subroutine CCTK_GroupnghostzonesVI
+
+     subroutine CCTK_ActiveTimeLevels (ierr, GH, groupname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       character(*)          groupname
+     end subroutine CCTK_ActiveTimeLevels
+
+     subroutine CCTK_ActiveTimeLevelsGN (ierr, GH, groupname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       character(*)          groupname
+     end subroutine CCTK_ActiveTimeLevelsGN
+
+     subroutine CCTK_ActiveTimeLevelsGI (ierr, GH, groupindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               groupindex
+     end subroutine CCTK_ActiveTimeLevelsGI
+
+     subroutine CCTK_ActiveTimeLevelsVN (ierr, GH, varname)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       character(*)          varname
+     end subroutine CCTK_ActiveTimeLevelsVN
+
+     subroutine CCTK_ActiveTimeLevelsVI (ierr, GH, varindex)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       integer               varindex
+     end subroutine CCTK_ActiveTimeLevelsVI
+
+  end interface
+  
+end module cctk_GroupsOnGH
diff --git a/src/make.code.defn b/src/make.code.defn
index 9ee45ac..31bab3c 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -21,6 +21,7 @@ SRCS =	cctk.F90                        \
         cctk_GHExtensions.F90           \
         cctk_GNU.F90                    \
         cctk_Groups.F90                 \
+        cctk_GroupsOnGH.F90             \
         util_Table.F90
 
 else