Correct API

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@40 51d2df92-0e4f-0410-a727-bd43d766d6b6

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)