diff options
author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-05-19 07:26:48 +0000 |
---|---|---|
committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-05-19 07:26:48 +0000 |
commit | 86fa57d8ecd6f24301233858266dac39a51e1d6d (patch) | |
tree | 7869f9fcb586cfbeeb079bac21f97fc1d4297420 /src/cctk_IOMethods.F90 | |
parent | 3fa1586a6386dbcb68bc4275069b3e35461a64b2 (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.F90 | 10 |
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 |