From 693d4decadce192c1df3e68b99d951dd79fb376c Mon Sep 17 00:00:00 2001 From: yye00 Date: Fri, 10 Sep 2004 00:41:20 +0000 Subject: more type casting fixes for COMPLEX/REAL16 git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/LocalReduce/trunk@44 7daa882c-dc44-4453-834e-278d26b18e6a --- src/ReductionMin.c | 4 ++-- src/ReductionNorm2.c | 4 ++-- src/ReductionNorm3.c | 4 ++-- src/ReductionNormInf.c | 2 +- 4 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/ReductionMin.c b/src/ReductionMin.c index 0d24b6f..0d7fcc0 100644 --- a/src/ReductionMin.c +++ b/src/ReductionMin.c @@ -926,11 +926,11 @@ 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: - 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 f4b87ce..fe188e2 100644 --- a/src/ReductionNorm2.c +++ b/src/ReductionNorm2.c @@ -936,7 +936,7 @@ static int ReductionL2 (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: @@ -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 2f527f2..a116b72 100644 --- a/src/ReductionNorm3.c +++ b/src/ReductionNorm3.c @@ -925,7 +925,7 @@ static int ReductionL3 (int N_dims, int operator_handle, { /* out values type switches*/ case CCTK_VARIABLE_CHAR: - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_BYTE, 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_BYTE, 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; case CCTK_VARIABLE_INT: ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_INT, 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) @@ -969,7 +969,7 @@ static int ReductionL3 (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 52325ff..18354fc 100644 --- a/src/ReductionNormInf.c +++ b/src/ReductionNormInf.c @@ -980,7 +980,7 @@ static int ReductionLInf (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