diff options
Diffstat (limited to 'src/cctk_GroupsOnGH.F90')
| -rw-r--r-- | src/cctk_GroupsOnGH.F90 | 325 |
1 files changed, 325 insertions, 0 deletions
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 |