diff options
author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-10-31 18:36:07 +0000 |
---|---|---|
committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-10-31 18:36:07 +0000 |
commit | 93462ac843e2b6a91fef984c7782dbff894326ca (patch) | |
tree | 8d2516d009d8697f5a70f9c39d77118684a6e2cf | |
parent | 20936be95337fa04e7eae28b3b940a1666c1b7fe (diff) |
Add more interfaces
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@22 51d2df92-0e4f-0410-a727-bd43d766d6b6
-rw-r--r-- | src/cctk.F90 | 2 | ||||
-rw-r--r-- | src/cctk_ParamCheck.F90 | 17 | ||||
-rw-r--r-- | src/cctk_Parameter.F90 | 72 | ||||
-rw-r--r-- | src/make.code.defn | 2 |
4 files changed, 93 insertions, 0 deletions
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 |