From e68f1153a0eee17e8518f873ce317b486c984823 Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 24 Jul 2007 04:44:36 +0000 Subject: Correct API of CCTK_InterpLocalUniform. git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@39 51d2df92-0e4f-0410-a727-bd43d766d6b6 --- src/cctk_Interp.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cctk_Interp.F90 b/src/cctk_Interp.F90 index 153273c..7871c38 100644 --- a/src/cctk_Interp.F90 +++ b/src/cctk_Interp.F90 @@ -70,7 +70,7 @@ C their names exceed the maximum allowed length of 31 characters CCTK_REAL coord_delta(N_dims) integer N_interp_points integer interp_coords_type_code - CCTK_POINTER_TO_CONST interp_coords(N_interp_points) + CCTK_POINTER_TO_CONST interp_coords(N_dims) integer N_input_arrays CCTK_INT input_array_dims(N_dims) CCTK_INT input_array_type_codes(N_input_arrays) -- cgit v1.2.3