diff options
| author | lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-19 11:34:32 +0000 |
|---|---|---|
| committer | lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-19 11:34:32 +0000 |
| commit | 4a00cbeb83be343b9bc40ca36dfddfa756d6e392 (patch) | |
| tree | 81bf6a89a43fb3053620cc825c1c164f91347ce5 /src/comm | |
| parent | 976e515a5eec28b040b28bebdf31085f49c32b64 (diff) | |
reduction of 1d arrays, needs harmonizing!
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1065 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/comm')
| -rw-r--r-- | src/comm/Reduction.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/comm/Reduction.c b/src/comm/Reduction.c index 85096f8a..9d58b420 100644 --- a/src/comm/Reduction.c +++ b/src/comm/Reduction.c @@ -645,7 +645,6 @@ void FMODIFIER FORTRAN_NAME(CCTK_ReduceLocalScalar)(int *fortran_return, 1, 1, *data_type, 1, in_scalar); } - /*@@ @routine CCTK_ReduceLocalArray1D @date Thu Oct 14 12:10:01 1999 @@ -662,13 +661,14 @@ void FMODIFIER FORTRAN_NAME(CCTK_ReduceLocalScalar)(int *fortran_return, @@*/ + int CCTK_ReduceLocalArray1D (cGH *GH, int proc, int operation_handle, - void *in_array1d, void *out_array1d, int num_in_array1d, + 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)); + num_in_array1d, data_type, out_array1d, + 1, 1, data_type, 1, in_array1d)); } void FMODIFIER FORTRAN_NAME(CCTK_ReduceLocalArray1D)(int *fortran_return, @@ -681,7 +681,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_ReduceLocalArray1D)(int *fortran_return, 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); + *num_in_array1d, *data_type, out_array1d, + 1, 1, *data_type, 1,in_array1d); } |