diff options
-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") |