diff options
Diffstat (limited to 'src/cctk_Interp.F90')
-rw-r--r-- | src/cctk_Interp.F90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/cctk_Interp.F90 b/src/cctk_Interp.F90 index d8b6a05..a9d3086 100644 --- a/src/cctk_Interp.F90 +++ b/src/cctk_Interp.F90 @@ -66,6 +66,7 @@ C their names exceed the maximum allowed length of 31 characters interp_coords_type_code, & interp_coords, & N_input_arrays, & + input_array_dims, & input_array_type_codes, & input_arrays, & N_output_arrays, & @@ -82,7 +83,7 @@ C their names exceed the maximum allowed length of 31 characters integer interp_coords_type_code CCTK_POINTER_TO_CONST interp_coords(N_interp_points) integer N_input_arrays - CCTK_INT input_array_dims(N_input_arrays) + CCTK_INT input_array_dims(N_dims) CCTK_INT input_array_type_codes(N_input_arrays) CCTK_POINTER_TO_CONST input_arrays(N_input_arrays) integer N_output_arrays |