From 1acb285767e88d80a673e62f8fb9b299908523be Mon Sep 17 00:00:00 2001 From: yye00 Date: Fri, 10 Sep 2004 00:04:40 +0000 Subject: fixed casting for COMPLEX and REAL16 git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/LocalReduce/trunk@43 7daa882c-dc44-4453-834e-278d26b18e6a --- src/ReductionAvg.c | 2 +- src/ReductionCount.c | 2 +- src/ReductionMax.c | 2 +- src/ReductionMin.c | 2 +- src/ReductionNorm1.c | 2 +- src/ReductionNorm2.c | 2 +- src/ReductionNorm3.c | 2 +- src/ReductionNorm4.c | 2 +- src/ReductionNormInf.c | 2 +- src/ReductionSum.c | 2 +- 10 files changed, 10 insertions(+), 10 deletions(-) diff --git a/src/ReductionAvg.c b/src/ReductionAvg.c index 51db04b..279d6bb 100644 --- a/src/ReductionAvg.c +++ b/src/ReductionAvg.c @@ -931,7 +931,7 @@ static int ReductionAvg (int N_dims, int operator_handle, break; #endif case CCTK_VARIABLE_COMPLEX: - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product) +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product)*/ break; #ifdef CCTK_COMPLEX8 case CCTK_VARIABLE_COMPLEX8: diff --git a/src/ReductionCount.c b/src/ReductionCount.c index 5b5d92c..9bf2262 100644 --- a/src/ReductionCount.c +++ b/src/ReductionCount.c @@ -930,7 +930,7 @@ static int ReductionCount (int N_dims, int operator_handle, break; #endif case CCTK_VARIABLE_COMPLEX: - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product) +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product)*/ break; #ifdef CCTK_COMPLEX8 case CCTK_VARIABLE_COMPLEX8: diff --git a/src/ReductionMax.c b/src/ReductionMax.c index 6c110eb..0dff3ab 100644 --- a/src/ReductionMax.c +++ b/src/ReductionMax.c @@ -930,7 +930,7 @@ static int ReductionMax (int N_dims, int operator_handle, break; #endif case CCTK_VARIABLE_COMPLEX: - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product) +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product)*/ break; #ifdef CCTK_COMPLEX8 case CCTK_VARIABLE_COMPLEX8: diff --git a/src/ReductionMin.c b/src/ReductionMin.c index 19ba68f..0d24b6f 100644 --- a/src/ReductionMin.c +++ b/src/ReductionMin.c @@ -926,7 +926,7 @@ static int ReductionMin (int N_dims, int operator_handle, #endif #ifdef CCTK_REAL16 case CCTK_VARIABLE_REAL16: - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_REAL16, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product) +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_REAL16, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product)*/ break; #endif case CCTK_VARIABLE_COMPLEX: diff --git a/src/ReductionNorm1.c b/src/ReductionNorm1.c index b54952e..9ca7160 100644 --- a/src/ReductionNorm1.c +++ b/src/ReductionNorm1.c @@ -971,7 +971,7 @@ static int ReductionL1 (int N_dims, int operator_handle, break; #endif case CCTK_VARIABLE_COMPLEX: - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product) +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product)*/ break; #ifdef CCTK_COMPLEX8 case CCTK_VARIABLE_COMPLEX8: diff --git a/src/ReductionNorm2.c b/src/ReductionNorm2.c index 1b4217a..f4b87ce 100644 --- a/src/ReductionNorm2.c +++ b/src/ReductionNorm2.c @@ -945,7 +945,7 @@ static int ReductionL2 (int N_dims, int operator_handle, #endif #ifdef CCTK_COMPLEX16 case CCTK_VARIABLE_COMPLEX16: - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product) +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product)*/ break; #endif #ifdef CCTK_COMPLEX32 diff --git a/src/ReductionNorm3.c b/src/ReductionNorm3.c index 07969d5..2f527f2 100644 --- a/src/ReductionNorm3.c +++ b/src/ReductionNorm3.c @@ -965,7 +965,7 @@ static int ReductionL3 (int N_dims, int operator_handle, #endif #ifdef CCTK_REAL16 case CCTK_VARIABLE_REAL16: - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_REAL16, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product) +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_REAL16, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product)*/ break; #endif case CCTK_VARIABLE_COMPLEX: diff --git a/src/ReductionNorm4.c b/src/ReductionNorm4.c index 4ad4882..7c8323b 100644 --- a/src/ReductionNorm4.c +++ b/src/ReductionNorm4.c @@ -933,7 +933,7 @@ static int ReductionL4 (int N_dims, int operator_handle, break; #endif case CCTK_VARIABLE_COMPLEX: - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product) +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product)*/ break; #ifdef CCTK_COMPLEX8 case CCTK_VARIABLE_COMPLEX8: diff --git a/src/ReductionNormInf.c b/src/ReductionNormInf.c index fbbad6b..52325ff 100644 --- a/src/ReductionNormInf.c +++ b/src/ReductionNormInf.c @@ -910,7 +910,7 @@ static int ReductionLInf (int N_dims, int operator_handle, break; #ifdef CCTK_COMPLEX8 case CCTK_VARIABLE_COMPLEX8: - ITERATE_ON_ARRAY(i,CCTK_REAL8, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product) +/* ITERATE_ON_ARRAY(i,CCTK_REAL8, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product)*/ break; #endif #ifdef CCTK_COMPLEX16 diff --git a/src/ReductionSum.c b/src/ReductionSum.c index 78ac920..c3134d4 100644 --- a/src/ReductionSum.c +++ b/src/ReductionSum.c @@ -930,7 +930,7 @@ static int ReductionSum (int N_dims, int operator_handle, break; #endif case CCTK_VARIABLE_COMPLEX: - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product) +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], mask_on, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,product)*/ break; #ifdef CCTK_COMPLEX8 case CCTK_VARIABLE_COMPLEX8: -- cgit v1.2.3