From 93462ac843e2b6a91fef984c7782dbff894326ca Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6>
Date: Sun, 31 Oct 2004 18:36:07 +0000
Subject: Add more interfaces

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@22 51d2df92-0e4f-0410-a727-bd43d766d6b6
---
 src/cctk.F90            |  2 ++
 src/cctk_ParamCheck.F90 | 17 ++++++++++++
 src/cctk_Parameter.F90  | 72 +++++++++++++++++++++++++++++++++++++++++++++++++
 src/make.code.defn      |  2 ++
 4 files changed, 93 insertions(+)
 create mode 100644 src/cctk_ParamCheck.F90
 create mode 100644 src/cctk_Parameter.F90

diff --git a/src/cctk.F90 b/src/cctk.F90
index 2222679..420ba87 100644
--- a/src/cctk.F90
+++ b/src/cctk.F90
@@ -36,5 +36,7 @@ module cctk
   use cctk_Malloc1
   use cctk_MemAlloc
   use cctk_Misc
+  use cctk_ParamCheck
+  use cctk_Parameter
   implicit none
 end module cctk
diff --git a/src/cctk_ParamCheck.F90 b/src/cctk_ParamCheck.F90
new file mode 100644
index 0000000..98f4f8e
--- /dev/null
+++ b/src/cctk_ParamCheck.F90
@@ -0,0 +1,17 @@
+/*@@
+  @file    $RCSfile$
+  @author  $Author$
+  @date    $Date$
+  @desc
+           Fortran 90 interface declarations for the routines
+           which have their C declarations in cctk_ParamCheck.h
+  @enddesc
+  @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_ParamCheck
+  implicit none
+  
+end module cctk_ParamCheck
diff --git a/src/cctk_Parameter.F90 b/src/cctk_Parameter.F90
new file mode 100644
index 0000000..9208b09
--- /dev/null
+++ b/src/cctk_Parameter.F90
@@ -0,0 +1,72 @@
+/*@@
+  @file    $RCSfile$
+  @author  $Author$
+  @date    $Date$
+  @desc
+           Fortran 90 interface declarations for the routines
+           which have their C declarations in cctk_Parameter.h
+  @enddesc
+  @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_Parameter
+  implicit none
+
+  interface
+
+     subroutine CCTK_ParameterLevel (level)
+       implicit none
+       integer level
+     end subroutine CCTK_ParameterLevel
+
+     subroutine CCTK_ParameterSet (ierr, name, thorn, value)
+       implicit none
+       integer      ierr
+       character(*) name
+       character(*) thorn
+       character(*) value
+     end subroutine CCTK_ParameterSet
+
+     subroutine CCTK_ParameterGet (param, name, thorn, type)
+       implicit none
+       CCTK_POINTER_TO_CONST param
+       character(*)          name
+       character(*)          thorn
+       integer               type
+     end subroutine CCTK_ParameterGet
+
+     subroutine CCTK_ParameterValString (string, name, thorn)
+       implicit none
+       character(*) string
+       character(*) name
+       character(*) thorn
+     end subroutine CCTK_ParameterValString
+  
+     subroutine CCTK_ParameterWalk (ierr, first, origin, pfullname, pdata)
+       implicit none
+       integer      ierr
+       integer      first
+       character(*) origin
+       CCTK_POINTER pfullname
+       CCTK_POINTER pdata
+     end subroutine CCTK_ParameterWalk
+
+     subroutine CCTK_ParamtereDate (data, name, thorn)
+       implicit none
+       CCTK_POINTER_TO_CONST data
+       character(*)          name
+       character(*)          thorn
+     end subroutine CCTK_ParamtereDate
+
+     subroutine CCTK_ParameterQueryTimesSet (ierr, name, thorn)
+       implicit none
+       integer ierr
+       character(*) name
+       character(*) thorn
+     end subroutine CCTK_ParameterQueryTimesSet
+
+  end interface
+
+end module cctk_Parameter
diff --git a/src/make.code.defn b/src/make.code.defn
index f237123..2daf60a 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -29,6 +29,8 @@ SRCS =	cctk.F90                        \
         cctk_Malloc1.F90                \
         cctk_MemAlloc.F90               \
         cctk_Misc.F90                   \
+        cctk_ParamCheck.F90             \
+        cctk_Parameter.F90              \
         util_Table.F90
 
 else
-- 
cgit v1.2.3