From cbd9c4efcc77d2ab8c18b810088ff2285053ce27 Mon Sep 17 00:00:00 2001 From: schnetter Date: Mon, 17 May 2004 18:10:13 +0000 Subject: Add one more file of interfaces git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@7 51d2df92-0e4f-0410-a727-bd43d766d6b6 --- src/cctk.F90 | 1 + src/cctk_GroupsOnGH.F90 | 325 ++++++++++++++++++++++++++++++++++++++++++++++++ src/make.code.defn | 1 + 3 files changed, 327 insertions(+) create mode 100644 src/cctk_GroupsOnGH.F90 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 -- cgit v1.2.3