aboutsummaryrefslogtreecommitdiff
path: root/src/cctk_IOMethods.F90
diff options
context:
space:
mode:
authorschnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6>2004-05-19 07:26:48 +0000
committerschnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6>2004-05-19 07:26:48 +0000
commit86fa57d8ecd6f24301233858266dac39a51e1d6d (patch)
tree7869f9fcb586cfbeeb079bac21f97fc1d4297420 /src/cctk_IOMethods.F90
parent3fa1586a6386dbcb68bc4275069b3e35461a64b2 (diff)
Add onw more header file, and fix two others
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@9 51d2df92-0e4f-0410-a727-bd43d766d6b6
Diffstat (limited to 'src/cctk_IOMethods.F90')
-rw-r--r--src/cctk_IOMethods.F9010
1 files changed, 6 insertions, 4 deletions
diff --git a/src/cctk_IOMethods.F90 b/src/cctk_IOMethods.F90
index bbfbc57..9aefa55 100644
--- a/src/cctk_IOMethods.F90
+++ b/src/cctk_IOMethods.F90
@@ -16,9 +16,9 @@ module cctk_IOMethods
interface
- subroutine CCTKi_RegisterIOMethod (ierr, thorn, name)
+ subroutine CCTKi_RegisterIOMethod (handle, thorn, name)
implicit none
- integer ierr
+ integer handle
character(*) thorn
character(*) name
end subroutine CCTKi_RegisterIOMethod
@@ -51,14 +51,16 @@ module cctk_IOMethods
CCTK_FPOINTER OutputVarAs
end subroutine CCTK_RegisterIOMethodOutputVarAs
- subroutine CCTK_IOMethodImplementation (imp, handle)
+ subroutine CCTK_IOMethodImplementation (nchars, imp, handle)
implicit none
+ integer nchars
character(*) imp
integer handle
end subroutine CCTK_IOMethodImplementation
- subroutine CCTK_IOMethod (method, handle)
+ subroutine CCTK_IOMethod (nchars, method, handle)
implicit none
+ integer nchars
character(*) method
integer handle
end subroutine CCTK_IOMethod