From 3eda78b2d10187832d56e52976a2b8d7e2abdfc3 Mon Sep 17 00:00:00 2001 From: lanfer Date: Mon, 18 Oct 1999 06:48:23 +0000 Subject: added interface for 1D local array reduction git-svn-id: http://svn.cactuscode.org/flesh/trunk@1045 17b73243-c579-4c4c-a9d2-2d5706c11dac --- src/comm/Reduction.c | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) (limited to 'src') 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); +} + -- cgit v1.2.3