diff options
author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2007-05-01 22:54:13 +0000 |
---|---|---|
committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2007-05-01 22:54:13 +0000 |
commit | d271131f13badbbe3285666773c79b99bdc65bbc (patch) | |
tree | 5f5a3ff279a4fb812d5052db906f0343b2be3bd1 | |
parent | 60ddb089f23c64606d9343d12842120c13403a6e (diff) |
Correct error in interface for CCTK_InterpLocalUniform
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@33 51d2df92-0e4f-0410-a727-bd43d766d6b6
-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 |