more type casting fixes for COMPLEX/REAL16

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/LocalReduce/trunk@44 7daa882c-dc44-4453-834e-278d26b18e6a

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: