From 5286e3eca49e7fe873c3470114ad805e7142de75 Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 3 Aug 2004 22:12:54 +0000 Subject: Do not convert C strings to CCTK_INT. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/CalcK/trunk@14 f47d718b-0e4f-0410-8445-f2f96c8ccefb --- src/CalcK.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/CalcK.F90 b/src/CalcK.F90 index b753360..3c7b4ab 100644 --- a/src/CalcK.F90 +++ b/src/CalcK.F90 @@ -37,9 +37,9 @@ subroutine CalcK (CCTK_ARGUMENTS) dx(:) = CCTK_DELTA_SPACE(:) call CCTK_FortranString & - (len_boundary, int(extcurv_boundary,ik), str_boundary) + (len_boundary, extcurv_boundary, str_boundary) call CCTK_FortranString & - (len_options, int(extcurv_boundary_options,ik), str_options) + (len_options, extcurv_boundary_options, str_options) call Util_TableCreateFromString (options, str_options) if (options<0) then call CCTK_WARN (0, "Parameter ""extcurv_boundary_options"" has an illegal syntax") -- cgit v1.2.3