diff options
Diffstat (limited to 'src/AHFinder_int.F')
-rw-r--r-- | src/AHFinder_int.F | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/AHFinder_int.F b/src/AHFinder_int.F index 060834a..e3c9833 100644 --- a/src/AHFinder_int.F +++ b/src/AHFinder_int.F @@ -37,7 +37,8 @@ integer interp_handle,coord_system_handle integer reduction_handle,param_table_handle character(30) options_string - CCTK_INT red_tmp + character(128) operator + CCTK_INT red_tmp, nchars CCTK_POINTER, dimension(3) :: interp_coords CCTK_INT, dimension(9) :: in_array_indices @@ -624,7 +625,8 @@ call CCTK_WARN(0,"Cannot create parameter table for interpolator") endif - call CCTK_InterpHandle (interp_handle,"Lagrange polynomial interpolation") + call CCTK_FortranString (nchars, interpolation_operator, operator) + call CCTK_InterpHandle (interp_handle, operator) if (interp_handle .lt. 0) then call CCTK_WARN(0,"Cannot get handle for interpolation ! Forgot to activate an implementation providing interpolation operators ??") endif |