diff options
-rw-r--r-- | src/cctk_Parameter.F90 | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/cctk_Parameter.F90 b/src/cctk_Parameter.F90 index ea9437d..476c903 100644 --- a/src/cctk_Parameter.F90 +++ b/src/cctk_Parameter.F90 @@ -26,11 +26,12 @@ module cctk_Parameter integer type end subroutine CCTK_ParameterGet - subroutine CCTK_ParameterValString (string, name, thorn) + subroutine CCTK_ParameterValString (nchars, param, thorn, value) implicit none - character(*) string - character(*) name + integer nchars + character(*) param character(*) thorn + character(*) value end subroutine CCTK_ParameterValString subroutine CCTK_ParameterWalk (ierr, first, origin, pfullname, pdata) |