From 96291acb1edabcb82e0b8a49a49cd5fe45c08fda Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6>
Date: Mon, 12 Apr 2010 16:38:01 +0000
Subject: Correct API

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@40 51d2df92-0e4f-0410-a727-bd43d766d6b6
---
 src/cctk_Parameter.F90 | 7 ++++---
 1 file 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)
-- 
cgit v1.2.3