diff options
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 |