diff options
author | hawke <hawke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-11-03 16:11:01 +0000 |
---|---|---|
committer | hawke <hawke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-11-03 16:11:01 +0000 |
commit | 96ee14ee6611df751054b31b4aee49fa7bf7daf7 (patch) | |
tree | 13f9c549aff28c55623ba42b7a54a284d3a53f4b /src/comm/Reduction.c | |
parent | 9dd7e8d95ace6634cf8b3915b8f23a0145fac251 (diff) |
Correct the argument list for the Fortran interface for the new Reduction API.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3890 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/comm/Reduction.c')
-rw-r--r-- | src/comm/Reduction.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/src/comm/Reduction.c b/src/comm/Reduction.c index 75c077d4..303f0387 100644 --- a/src/comm/Reduction.c +++ b/src/comm/Reduction.c @@ -1545,13 +1545,13 @@ int CCTK_ReduceGridArrays(const cGH *GH, void CCTK_FCALL CCTK_FNAME(CCTK_ReduceGridArrays) (int *fortranreturn, - const cGH *GH, - int dest_proc, - int local_reduce_handle, - int param_table_handle, - int N_input_arrays, + const cGH **GH, + int *dest_proc, + int *local_reduce_handle, + int *param_table_handle, + int *N_input_arrays, const CCTK_INT input_array_variable_indices[], - int M_output_values, + int *M_output_values, const CCTK_INT output_value_type_codes[], void* const output_values[]) { @@ -1566,11 +1566,11 @@ void CCTK_FCALL CCTK_FNAME(CCTK_ReduceGridArrays) } else { - retval = GA_reduc (GH, - dest_proc, - local_reduce_handle, param_table_handle, - N_input_arrays, input_array_variable_indices, - M_output_values, output_value_type_codes, + retval = GA_reduc (*GH, + *dest_proc, + *local_reduce_handle, *param_table_handle, + *N_input_arrays, input_array_variable_indices, + *M_output_values, output_value_type_codes, output_values); } *fortranreturn = retval; |