diff options
author | schnetter <schnetter@f47d718b-0e4f-0410-8445-f2f96c8ccefb> | 2004-08-03 22:12:54 +0000 |
---|---|---|
committer | schnetter <schnetter@f47d718b-0e4f-0410-8445-f2f96c8ccefb> | 2004-08-03 22:12:54 +0000 |
commit | 5286e3eca49e7fe873c3470114ad805e7142de75 (patch) | |
tree | 18e5581401c81f32b5ddf602b823e14d308293eb | |
parent | fe924cbdcc5a9bccac9278f11f52c364a69763f2 (diff) |
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
-rw-r--r-- | src/CalcK.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
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") |