From d271131f13badbbe3285666773c79b99bdc65bbc Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 1 May 2007 22:54:13 +0000 Subject: Correct error in interface for CCTK_InterpLocalUniform git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@33 51d2df92-0e4f-0410-a727-bd43d766d6b6 --- src/cctk_Interp.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3