diff options
author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-05-18 21:56:39 +0000 |
---|---|---|
committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-05-18 21:56:39 +0000 |
commit | 3fa1586a6386dbcb68bc4275069b3e35461a64b2 (patch) | |
tree | 879b3c4689bcb21d4c3a5329bcf0ba222b9ccb8b | |
parent | cbd9c4efcc77d2ab8c18b810088ff2285053ce27 (diff) |
Add two more header files worth of interfaces
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@8 51d2df92-0e4f-0410-a727-bd43d766d6b6
-rw-r--r-- | src/cctk.F90 | 2 | ||||
-rw-r--r-- | src/cctk_IO.F90 | 50 | ||||
-rw-r--r-- | src/cctk_IOMethods.F90 | 73 | ||||
-rw-r--r-- | src/make.code.defn | 2 |
4 files changed, 127 insertions, 0 deletions
diff --git a/src/cctk.F90 b/src/cctk.F90 index 4197da3..f6564ec 100644 --- a/src/cctk.F90 +++ b/src/cctk.F90 @@ -29,5 +29,7 @@ module cctk use cctk_GNU use cctk_Groups use cctk_GroupsOnGH + use cctk_IO + use cctk_IOMethods implicit none end module cctk diff --git a/src/cctk_IO.F90 b/src/cctk_IO.F90 new file mode 100644 index 0000000..c6a65a8 --- /dev/null +++ b/src/cctk_IO.F90 @@ -0,0 +1,50 @@ +/*@@ + @file $RCSfile$ + @author $Author$ + @date $Date$ + @desc + Fortran 90 interface declarations for the routines + which have their C declarations in cctk_IO.h + @enddesc + @version $Header$ +@@*/ + +#include "cctk.h" + +module cctk_IO + implicit none + + interface + + subroutine CCTK_OutputGH (ierr, GH) + implicit none + integer ierr + CCTK_POINTER_TO_CONST GH + end subroutine CCTK_OutputGH + + subroutine CCTK_OutputVarAs (ierr, GH, var, alias) + implicit none + integer ierr + CCTK_POINTER_TO_CONST GH + character(*) var + character(*) alias + end subroutine CCTK_OutputVarAs + + subroutine CCTK_OutputVar (ierr, GH, var) + implicit none + integer ierr + CCTK_POINTER_TO_CONST GH + character(*) var + end subroutine CCTK_OutputVar + + subroutine CCTK_OutputVarByMethod (ierr, GH, var, method) + implicit none + integer ierr + CCTK_POINTER_TO_CONST GH + character(*) var + character(*) method + end subroutine CCTK_OutputVarByMethod + + end interface + +end module cctk_Groups diff --git a/src/cctk_IOMethods.F90 b/src/cctk_IOMethods.F90 new file mode 100644 index 0000000..bbfbc57 --- /dev/null +++ b/src/cctk_IOMethods.F90 @@ -0,0 +1,73 @@ +/*@@ + @file $RCSfile$ + @author $Author$ + @date $Date$ + @desc + Fortran 90 interface declarations for the routines + which have their C declarations in cctk_IOMethods.h + @enddesc + @version $Header$ +@@*/ + +#include "cctk.h" + +module cctk_IOMethods + implicit none + + interface + + subroutine CCTKi_RegisterIOMethod (ierr, thorn, name) + implicit none + integer ierr + character(*) thorn + character(*) name + end subroutine CCTKi_RegisterIOMethod + + subroutine CCTK_RegisterIOMethodOutputGH (ierr, handle, OutputGH) + implicit none + integer ierr + integer handle + CCTK_FPOINTER OutputGH + end subroutine CCTK_RegisterIOMethodOutputGH + + subroutine CCTK_RegisterIOMethodTimeToOutput (ierr, handle, TimeToOutput) + implicit none + integer ierr + integer handle + CCTK_FPOINTER TimeToOutput + end subroutine CCTK_RegisterIOMethodTimeToOutput + + subroutine CCTK_RegisterIOMethodTriggerOutput (ierr, handle, TriggerOutput) + implicit none + integer ierr + integer handle + CCTK_FPOINTER TriggerOutput + end subroutine CCTK_RegisterIOMethodTriggerOutput + + subroutine CCTK_RegisterIOMethodOutputVarAs (ierr, handle, OutputVarAs) + implicit none + integer ierr + integer handle + CCTK_FPOINTER OutputVarAs + end subroutine CCTK_RegisterIOMethodOutputVarAs + + subroutine CCTK_IOMethodImplementation (imp, handle) + implicit none + character(*) imp + integer handle + end subroutine CCTK_IOMethodImplementation + + subroutine CCTK_IOMethod (method, handle) + implicit none + character(*) method + integer handle + end subroutine CCTK_IOMethod + + subroutine CCTK_NumIOMethods (num) + implicit none + integer num + end subroutine CCTK_NumIOMethods + + end interface + +end module cctk_IOMethods diff --git a/src/make.code.defn b/src/make.code.defn index 31bab3c..34ae018 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -22,6 +22,8 @@ SRCS = cctk.F90 \ cctk_GNU.F90 \ cctk_Groups.F90 \ cctk_GroupsOnGH.F90 \ + cctk_IO.F90 \ + cctk_IOMethods.F90 \ util_Table.F90 else |