Added fortran wrapper for CCTK_InterpLocalUniform().

git-svn-id: http://svn.cactuscode.org/flesh/trunk@3733 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 56 insertions, 1 deletions

diff --git a/src/comm/Interp.c b/src/comm/Interp.c
index d97fe9d5..931f2393 100644
--- a/src/comm/Interp.c
+++ b/src/comm/Interp.c
@@ -97,6 +97,27 @@ void CCTK_FCALL CCTK_FNAME (CCTK_InterpGridArrays)
                             const int *N_output_arrays,
                               const CCTK_INT output_array_types[],
                               void *const output_arrays[]);
+void CCTK_FCALL CCTK_FNAME (CCTK_InterpLocalUniform)
+                           (int *ierror,
+                            const int *N_dims,
+                            const int *operator_handle,
+                            const int *param_table_handle,
+                            /***** coordinate system *****/
+                            const CCTK_REAL coord_origin[],
+                            const CCTK_REAL coord_delta[],
+                            /***** interpolation points *****/
+                            const int *N_interp_points,
+                            const int *interp_coords_type_code,
+                            const void *const interp_coords[],
+                            /***** input arrays *****/
+                            const int *N_input_arrays,
+                            const CCTK_INT input_array_dims[],
+                            const CCTK_INT input_array_type_codes[],
+                            const void *const input_arrays[],
+                            /***** output arrays *****/
+                            const int *N_output_arrays,
+                            const CCTK_INT output_array_type_codes[],
+                            void *const output_arrays[]);
 
 /******************************************************************************
  *************************    Internal Data Structures ************************
@@ -978,7 +999,7 @@ int CCTK_InterpLocal (cGH *GH,
   if (obsolete_warning_first_time_flag)
   {
     obsolete_warning_first_time_flag = 0;
-    CCTK_VWarn(1, __LINE__, __FILE__, "Cactus",
+    CCTK_VWarn(0, __LINE__, __FILE__, "Cactus",
 "\n"
 "***\n"
 "*** CCTK_InterpLocal()  is obsolescent and will be phased out soon!\n"
@@ -1442,3 +1463,37 @@ int CCTK_InterpLocalUniform(int N_dims,
                                                 output_array_type_codes,
                                                 output_arrays);
 }
+
+
+void CCTK_FCALL CCTK_FNAME (CCTK_InterpLocalUniform)
+                           (int *ierror,
+                            const int *N_dims,
+                            const int *operator_handle,
+                            const int *param_table_handle,
+                            /***** coordinate system *****/
+                            const CCTK_REAL coord_origin[],
+                            const CCTK_REAL coord_delta[],
+                            /***** interpolation points *****/
+                            const int *N_interp_points,
+                            const int *interp_coords_type_code,
+                            const void *const interp_coords[],
+                            /***** input arrays *****/
+                            const int *N_input_arrays,
+                            const CCTK_INT input_array_dims[],
+                            const CCTK_INT input_array_type_codes[],
+                            const void *const input_arrays[],
+                            /***** output arrays *****/
+                            const int *N_output_arrays,
+                            const CCTK_INT output_array_type_codes[],
+                            void *const output_arrays[])
+{
+  *ierror = CCTK_InterpLocalUniform (*N_dims, *operator_handle,
+                                     *param_table_handle,
+                                     coord_origin, coord_delta,
+                                     *N_interp_points, *interp_coords_type_code,
+                                     interp_coords,
+                                     *N_input_arrays, input_array_dims,
+                                     input_array_type_codes, input_arrays,
+                                     *N_output_arrays, output_array_type_codes,
+                                     output_arrays);
+}