added interface for 1D local array reduction

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

1 files changed, 41 insertions, 0 deletions

diff --git a/src/comm/Reduction.c b/src/comm/Reduction.c
index a6f90f58..85096f8a 100644
--- a/src/comm/Reduction.c
+++ b/src/comm/Reduction.c
@@ -644,3 +644,44 @@ void FMODIFIER FORTRAN_NAME(CCTK_ReduceLocalScalar)(int *fortran_return,
                                       1, *data_type, out_scalar,
                                       1, 1, *data_type, 1, in_scalar);
 }
+
+
+ /*@@
+   @routine    CCTK_ReduceLocalArray1D
+   @date       Thu Oct 14 12:10:01 1999
+   @author     Gerd Lanfermann
+   @desc 
+        Interface to the migthy CCTK_Reduce for
+	reduction of local 1D arrays.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+
+int CCTK_ReduceLocalArray1D (cGH *GH, int proc, int operation_handle, 
+                            void *in_array1d, void *out_array1d, int num_in_array1d, 
+			     int data_type)
+{
+  return (CCTK_ReduceArray (GH, proc, operation_handle,
+                            1, data_type, out_array1d,
+                            2, 1, data_type, num_in_array1d, in_array1d));
+}
+
+void FMODIFIER FORTRAN_NAME(CCTK_ReduceLocalArray1D)(int *fortran_return,
+                                                    cGH *GH, 
+                                                    int *proc,
+                                                    int *operation_handle,
+                                                    void *in_array1d,
+                                                    void *out_array1d,
+						    int *num_in_array1d,
+                                                    int *data_type)
+{
+  *fortran_return = CCTK_ReduceArray (GH, *proc, *operation_handle,
+                                      1, *data_type, out_array1d,
+                                      2, 1, *data_type, *num_in_array1d, in_array1d);
+}
+