Add more interfaces.

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

4 files changed, 307 insertions, 0 deletions

diff --git a/src/cctk.F90 b/src/cctk.F90
index 834575f..b320c27 100644
--- a/src/cctk.F90
+++ b/src/cctk.F90
@@ -26,5 +26,7 @@ module cctk
   use cctk_FortranString0
   use cctk_FortranWrappers
   use cctk_GHExtensions
+  use cctk_GNU
+  use cctk_Groups
   implicit none
 end module cctk
diff --git a/src/cctk_GNU.F90 b/src/cctk_GNU.F90
new file mode 100644
index 0000000..4364176
--- /dev/null
+++ b/src/cctk_GNU.F90
@@ -0,0 +1,20 @@
+/*@@
+  @file    $RCSfile$
+  @author  $Author$
+  @date    $Date$
+  @desc
+           Fortran 90 interface declarations for the routines
+           which have their C declarations in cctk_GNU.h
+  @enddesc
+  @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_GNU
+  implicit none
+  
+  ! This file only pulls in declarations for getopt and regex, which
+  ! have no Fortran wrappers
+  
+end module cctk_GNU
diff --git a/src/cctk_Groups.F90 b/src/cctk_Groups.F90
new file mode 100644
index 0000000..c6499bb
--- /dev/null
+++ b/src/cctk_Groups.F90
@@ -0,0 +1,283 @@
+/*@@
+  @file    $RCSfile$
+  @author  $Author$
+  @date    $Date$
+  @desc
+           Fortran 90 interface declarations for the routines
+           which have their C declarations in cctk_Groups.h
+  @enddesc
+  @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_Groups
+  implicit none
+
+  interface
+
+     subroutine CCTK_StaggerVars (staggered)
+       implicit none
+       integer staggered
+     end subroutine CCTK_StaggerVars
+
+     subroutine CCTK_DecomposeName (ierr, fullname, implementation, name)
+       implicit none
+       integer      ierr
+       character(*) fullname
+       character(*) implementation
+       character(*) name
+     end subroutine CCTK_DecomposeName
+
+     subroutine CCTK_FirstVarIndex (index, group)
+       implicit none
+       integer      index
+       character(*) group
+     end subroutine CCTK_FirstVarIndex
+
+     subroutine CCTK_FirstVarIndexI (index, group)
+       implicit none
+       integer index
+       integer group
+     end subroutine CCTK_FirstVarIndexI
+
+     subroutine CCTK_FullName (nchars, var, fullname)
+       implicit none
+       integer      nchars
+       integer      var
+       character(*) fullname
+     end subroutine CCTK_FullName
+
+     ! CCTK_GroupData fills a structure and has no Fortran wrapper
+     
+     subroutine CCTK_GroupDimI (dim, group)
+       implicit none
+       integer dim
+       integer group
+     end subroutine CCTK_GroupDimI
+     
+     subroutine CCTK_GroupDimFromVarI (dim, var)
+       implicit none
+       integer dim
+       integer var
+     end subroutine CCTK_GroupDimFromVarI
+
+     subroutine CCTK_GroupDistribNumber (number, distrib)
+       implicit none
+       integer      number
+       character(*) distrib
+     end subroutine CCTK_GroupDistribNumber
+     
+     ! CCTK_GroupGhostsizesI is a strange function and has no Fortran wrapper
+
+     subroutine CCTK_ImplementationI (nchars, group, implementation)
+       implicit none
+       integer      nchars
+       integer      group
+       character(*) implementation
+     end subroutine CCTK_ImplementationI
+
+     subroutine CCTK_GroupIndex (index, group)
+       implicit none
+       integer      index
+       character(*) group
+     end subroutine CCTK_GroupIndex
+
+     subroutine CCTK_GroupIndexFromVar (index, var)
+       implicit none
+       integer      index
+       character(*) var
+     end subroutine CCTK_GroupIndexFromVar
+
+     subroutine CCTK_GroupIndexFromVarI (index, var)
+       implicit none
+       integer index
+       integer var
+     end subroutine CCTK_GroupIndexFromVarI
+
+     subroutine CCTK_GroupName (nchars, group, groupname)
+       implicit none
+       integer      nchars
+       integer      group
+       character(*) groupname
+     end subroutine CCTK_GroupName
+     
+     subroutine CCTK_GroupNameFromVarI (nchars, var, groupname)
+       implicit none
+       integer      nchars
+       integer      var
+       character(*) groupname
+     end subroutine CCTK_GroupNameFromVarI
+
+     subroutine CCTK_GroupScopeNumber (number, scope)
+       implicit none
+       integer      number
+       character(*) scope
+     end subroutine CCTK_GroupScopeNumber
+     
+     ! CCTK_GroupSizesI is a strange function and has no Fortran wrapper
+     
+     subroutine CCTK_GroupTypeFromVarI (type, var)
+       implicit none
+       integer type
+       integer var
+     end subroutine CCTK_GroupTypeFromVarI
+
+     subroutine CCTK_GroupTypeNumber (number, type)
+       implicit none
+       integer      number
+       character(*) type
+     end subroutine CCTK_GroupTypeNumber
+     
+     subroutine CCTK_GroupTypeI (type, group)
+       implicit none
+       integer type
+       integer group
+     end subroutine CCTK_GroupTypeI
+     
+     subroutine CCTK_ImpFromVarI (nchars, var, imp)
+       implicit none
+       integer      nchars
+       integer      var
+       character(*) imp
+     end subroutine CCTK_ImpFromVarI
+     
+     subroutine CCTK_MaxDim (maxdim)
+       implicit none
+       integer maxdim
+     end subroutine CCTK_MaxDim
+     
+     subroutine CCTK_NumGroups (numgroups)
+       implicit none
+       integer numgroups
+     end subroutine CCTK_NumGroups
+     
+     subroutine CCTK_NumTimeLevelsFromVar (numtimelevels, var)
+       implicit none
+       integer      numtimelevels
+       character(*) var
+     end subroutine CCTK_NumTimeLevelsFromVar
+     
+     subroutine CCTK_NumTimeLevelsFromVarI (numtimelevels, var)
+       implicit none
+       integer numtimelevels
+       integer var
+     end subroutine CCTK_NumTimeLevelsFromVarI
+     
+     subroutine CCTK_NumTimeLevels (numtimelevels, var)
+       implicit none
+       integer      numtimelevels
+       character(*) var
+     end subroutine CCTK_NumTimeLevels
+     
+     subroutine CCTK_NumTimeLevelsI (numtimelevels, var)
+       implicit none
+       integer numtimelevels
+       integer var
+     end subroutine CCTK_NumTimeLevelsI
+     
+     subroutine CCTK_MaxTimeLevels (maxtimelevels, group)
+       implicit none
+       integer      maxtimelevels
+       character(*) group
+     end subroutine CCTK_MaxTimeLevels
+     
+     subroutine CCTK_MaxTimeLevelsVN (maxtimelevels, var)
+       implicit none
+       integer      maxtimelevels
+       character(*) var
+     end subroutine CCTK_MaxTimeLevelsVN
+     
+     subroutine CCTK_MaxTimeLevelsVI (maxtimelevels, var)
+       implicit none
+       integer maxtimelevels
+       integer var
+     end subroutine CCTK_MaxTimeLevelsVI
+     
+     subroutine CCTK_MaxTimeLevelsGN (maxtimelevels, group)
+       implicit none
+       integer      maxtimelevels
+       character(*) group
+     end subroutine CCTK_MaxTimeLevelsGN
+     
+     subroutine CCTK_MaxTimeLevelsGI (maxtimelevels, group)
+       implicit none
+       integer maxtimelevels
+       integer group
+     end subroutine CCTK_MaxTimeLevelsGI
+     
+     subroutine CCTK_NumVars (numvars)
+       implicit none
+       integer numvars
+     end subroutine CCTK_NumVars
+     
+     subroutine CCTK_NumVarsInGroup (numvars, group)
+       implicit none
+       integer      numvars
+       character(*) group
+     end subroutine CCTK_NumVarsInGroup
+     
+     subroutine CCTK_NumVarsInGroupI (numvars, group)
+       implicit none
+       integer numvars
+       integer group
+     end subroutine CCTK_NumVarsInGroupI
+     
+     subroutine CCTK_VarIndex (index, var)
+       implicit none
+       integer      index
+       character(*) var
+     end subroutine CCTK_VarIndex
+     
+     subroutine CCTK_VarName (nchars, var, varname)
+       implicit none
+       integer      nchars
+       integer      var
+       character(*) varname
+     end subroutine CCTK_VarName
+     
+     subroutine CCTK_VarTypeI (type, var)
+       implicit none
+       integer type
+       integer var
+     end subroutine CCTK_VarTypeI
+     
+     subroutine CCTK_VarTypeNumber (number, type)
+       implicit none
+       integer      number
+       character(*) type
+     end subroutine CCTK_VarTypeNumber
+     
+     subroutine CCTK_VarTypeName (nchars, type, typename)
+       implicit none
+       integer      nchars
+       integer      type
+       character(*) typename
+     end subroutine CCTK_VarTypeName
+     
+     subroutine CCTK_VarTypeSize (size, type)
+       implicit none
+       integer size
+       integer type
+     end subroutine CCTK_VarTypeSize
+     
+     ! CCTKi_GroupLengthAsPointer is a strange function and has no
+     ! Fortran wrapper
+
+     ! CCTK_TraverseString has no Fortran wrapper
+     
+     subroutine CCTK_GroupTagsTable (table, group)
+       implicit none
+       integer      table
+       character(*) group
+     end subroutine CCTK_GroupTagsTable
+     
+     subroutine CCTK_GroupTagsTableI (table, group)
+       implicit none
+       integer table
+       integer group
+     end subroutine CCTK_GroupTagsTableI
+     
+  end interface
+  
+end module cctk_Groups
diff --git a/src/make.code.defn b/src/make.code.defn
index 02688ae..9ee45ac 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -19,6 +19,8 @@ SRCS =	cctk.F90                        \
         cctk_FortranString0.F90         \
         cctk_FortranWrappers.F90        \
         cctk_GHExtensions.F90           \
+        cctk_GNU.F90                    \
+        cctk_Groups.F90                 \
         util_Table.F90
 
 else