diff options
Diffstat (limited to 'src/Norm3Functions.c')
| -rw-r--r-- | src/Norm3Functions.c | 6232 |
1 files changed, 3116 insertions, 3116 deletions
diff --git a/src/Norm3Functions.c b/src/Norm3Functions.c index e644db8..681883f 100644 --- a/src/Norm3Functions.c +++ b/src/Norm3Functions.c @@ -97,202 +97,202 @@ int LocalReduce_Norm3_BYTE(int i, int weight_on, const void * const weight, CCTK ITERATE_ON_ARRAY(i,CCTK_BYTE, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) break; #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_BYTE, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_BYTE, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_BYTE, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_BYTE, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_BYTE, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_BYTE, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_BYTE, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_BYTE, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ } Util_TableSetInt(param_table_handle, num_points, "num_points"); Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); @@ -373,199 +373,199 @@ int LocalReduce_Norm3_INT(int i, int weight_on, const void * const weight, CCTK_ ITERATE_ON_ARRAY(i,CCTK_INT, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) break; #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_INT, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_INT, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_INT, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_INT, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_INT, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_INT, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_INT, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_INT, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ } Util_TableSetInt(param_table_handle, num_points, "num_points"); Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); @@ -647,201 +647,201 @@ int LocalReduce_Norm3_INT1(int i, int weight_on, const void * const weight, CCTK ITERATE_ON_ARRAY(i,CCTK_INT1, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) break; #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_INT1, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_INT1, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_INT1, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_INT1, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_INT1, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_INT1, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_INT1, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_INT1, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ } Util_TableSetInt(param_table_handle, num_points, "num_points"); Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); @@ -924,201 +924,201 @@ int LocalReduce_Norm3_INT2(int i, int weight_on, const void * const weight, CCTK ITERATE_ON_ARRAY(i,CCTK_INT2, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) break; #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_INT2, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_INT2, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_INT2, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_INT2, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_INT2, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_INT2, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_INT2, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_INT2, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ } Util_TableSetInt(param_table_handle, num_points, "num_points"); Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); @@ -1201,201 +1201,201 @@ int LocalReduce_Norm3_INT4(int i, int weight_on, const void * const weight, CCTK ITERATE_ON_ARRAY(i,CCTK_INT4, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) break; #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_INT4, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_INT4, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_INT4, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_INT4, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_INT4, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_INT4, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_INT4, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_INT4, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ } Util_TableSetInt(param_table_handle, num_points, "num_points"); Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); @@ -1478,201 +1478,201 @@ int LocalReduce_Norm3_INT8(int i, int weight_on, const void * const weight, CCTK ITERATE_ON_ARRAY(i,CCTK_INT8, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) break; #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_INT8, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_INT8, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_INT8, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_INT8, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_INT8, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_INT8, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_INT8, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_INT8, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ } Util_TableSetInt(param_table_handle, num_points, "num_points"); Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); @@ -1754,201 +1754,201 @@ int LocalReduce_Norm3_REAL(int i, int weight_on, const void * const weight, CCTK ITERATE_ON_ARRAY(i,CCTK_REAL, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) break; #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_REAL, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_REAL, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_REAL, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_REAL, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_REAL, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_REAL, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_REAL, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_REAL, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ } Util_TableSetInt(param_table_handle, num_points, "num_points"); Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); @@ -2030,201 +2030,201 @@ int LocalReduce_Norm3_REAL4(int i, int weight_on, const void * const weight, CCT ITERATE_ON_ARRAY(i,CCTK_REAL4, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) break; #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_REAL4, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_REAL4, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_REAL4, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_REAL4, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_REAL4, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_REAL4, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_REAL4, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_REAL4, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ } Util_TableSetInt(param_table_handle, num_points, "num_points"); Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); @@ -2307,202 +2307,202 @@ int LocalReduce_Norm3_REAL8(int i, int weight_on, const void * const weight, CCT ITERATE_ON_ARRAY(i,CCTK_REAL8, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) break; #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_REAL8, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_REAL8, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_REAL8, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_REAL8, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_REAL8, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_REAL8, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_REAL8, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_REAL8, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ } Util_TableSetInt(param_table_handle, num_points, "num_points"); Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); @@ -2585,201 +2585,201 @@ int LocalReduce_Norm3_REAL16(int i, int weight_on, const void * const weight, CC ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) break; #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; -#endif -#define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#undef REDUCTION_PREOP_CAST -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (out_type) typed_vdata[sum_indices]; -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar,weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL4) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL8) typed_vdata[sum_indices]; */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval.Re = (CCTK_REAL16) typed_vdata[sum_indices]; */ +/* #endif */ +/* #define REDUCTION_OPERATION(Norm3, scalar) (scalar).Re = CUBE_ABS((scalar).Re); (scalar).Im = CUBE_ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) (scalar).Re = CUBE_ABS((scalar).Re*weight); (scalar).Im = CUBE_ABS((scalar).Im*weight); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_REAL16, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #undef REDUCTION_PREOP_CAST */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (out_type) typed_vdata[sum_indices]; */ +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ } Util_TableSetInt(param_table_handle, num_points, "num_points"); Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); @@ -2787,1172 +2787,1172 @@ int LocalReduce_Norm3_REAL16(int i, int weight_on, const void * const weight, CC } #endif -int LocalReduce_Norm3_COMPLEX(int i, int weight_on, const void * const weight, CCTK_INT * input_array_offsets, int * indices, int max_iter, int * actual_indices, CCTK_INT * input_array_strides, CCTK_INT * input_array_min_subscripts,const CCTK_INT * input_array_dims, int num_points, int * actual_iters_per_dim, int * iters_per_dim, int N_dims, const void *const input_arrays[], const CCTK_INT output_number_type_codes[], void * const output_numbers[], int param_table_handle) -{ - int iter = 0; - int sum_indices = 0; - int flag, product, j, k; - - /* Weight variables */ - CCTK_REAL weight_sum = 0.0; - CCTK_REAL weight_value = 1.0; - -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) CCTK_CmplxAbs(typed_vdata[sum_indices]); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) CCTK_CmplxAbs(typed_vdata[sum_indices]); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) CCTK_CmplxAbs(typed_vdata[sum_indices]); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - switch (output_number_type_codes[i]) - { - /* out values type switches*/ - case CCTK_VARIABLE_BYTE: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_BYTE, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - case CCTK_VARIABLE_INT: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_INT, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #ifdef HAVE_CCTK_INT1 - case CCTK_VARIABLE_INT1: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_INT1, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_INT2 - case CCTK_VARIABLE_INT2: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_INT2, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_INT4 - case CCTK_VARIABLE_INT4: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_INT4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_INT8 - case CCTK_VARIABLE_INT8: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_INT8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - case CCTK_VARIABLE_REAL: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_REAL, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #ifdef HAVE_CCTK_REAL4 - case CCTK_VARIABLE_REAL4: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_REAL4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_REAL8 - case CCTK_VARIABLE_REAL8: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_REAL8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_REAL16 - case CCTK_VARIABLE_REAL16: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL4) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL4) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL8) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL8) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL16) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL16) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif - } - Util_TableSetInt(param_table_handle, num_points, "num_points"); - Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); - return 0; -} - - -#ifdef HAVE_CCTK_COMPLEX8 -int LocalReduce_Norm3_COMPLEX8(int i, int weight_on, const void * const weight, CCTK_INT * input_array_offsets, int * indices, int max_iter, int * actual_indices, CCTK_INT * input_array_strides, CCTK_INT * input_array_min_subscripts,const CCTK_INT * input_array_dims, int num_points, int * actual_iters_per_dim, int * iters_per_dim, int N_dims, const void *const input_arrays[], const CCTK_INT output_number_type_codes[], void * const output_numbers[], int param_table_handle) -{ - int iter = 0; - int sum_indices = 0; - int flag, product, j, k; - - /* Weight variables */ - CCTK_REAL weight_sum = 0.0; - CCTK_REAL weight_value = 1.0; - -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - switch (output_number_type_codes[i]) - { - /* out values type switches*/ - case CCTK_VARIABLE_BYTE: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_BYTE, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - case CCTK_VARIABLE_INT: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_INT, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #ifdef HAVE_CCTK_INT1 - case CCTK_VARIABLE_INT1: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_INT1, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_INT2 - case CCTK_VARIABLE_INT2: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_INT2, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_INT4 - case CCTK_VARIABLE_INT4: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_INT4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_INT8 - case CCTK_VARIABLE_INT8: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_INT8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - case CCTK_VARIABLE_REAL: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_REAL, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #ifdef HAVE_CCTK_REAL4 - case CCTK_VARIABLE_REAL4: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_REAL4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_REAL8 - case CCTK_VARIABLE_REAL8: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_REAL8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_REAL16 - case CCTK_VARIABLE_REAL16: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL4) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL4) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL8) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL8) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL16) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL16) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif - } - Util_TableSetInt(param_table_handle, num_points, "num_points"); - Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); - return 0; -} -#endif - -#ifdef HAVE_CCTK_COMPLEX16 -int LocalReduce_Norm3_COMPLEX16(int i, int weight_on, const void * const weight, CCTK_INT * input_array_offsets, int * indices, int max_iter, int * actual_indices, CCTK_INT * input_array_strides, CCTK_INT * input_array_min_subscripts,const CCTK_INT * input_array_dims, int num_points, int * actual_iters_per_dim, int * iters_per_dim, int N_dims, const void *const input_arrays[], const CCTK_INT output_number_type_codes[], void * const output_numbers[], int param_table_handle) -{ - int iter = 0; - int sum_indices = 0; - int flag, product, j, k; - - /* Weight variables */ - CCTK_REAL weight_sum = 0.0; - CCTK_REAL weight_value = 1.0; - -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - switch (output_number_type_codes[i]) - { - /* out values type switches*/ - case CCTK_VARIABLE_BYTE: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_BYTE, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - case CCTK_VARIABLE_INT: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_INT, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #ifdef HAVE_CCTK_INT1 - case CCTK_VARIABLE_INT1: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_INT1, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_INT2 - case CCTK_VARIABLE_INT2: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_INT2, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_INT4 - case CCTK_VARIABLE_INT4: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_INT4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_INT8 - case CCTK_VARIABLE_INT8: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_INT8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - case CCTK_VARIABLE_REAL: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_REAL, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #ifdef HAVE_CCTK_REAL4 - case CCTK_VARIABLE_REAL4: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_REAL4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_REAL8 - case CCTK_VARIABLE_REAL8: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_REAL8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_REAL16 - case CCTK_VARIABLE_REAL16: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL4) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL4) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL8) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL8) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL16) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL16) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif - } - Util_TableSetInt(param_table_handle, num_points, "num_points"); - Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); - return 0; -} -#endif - -#ifdef HAVE_CCTK_COMPLEX32 -int LocalReduce_Norm3_COMPLEX32(int i, int weight_on, const void * const weight, CCTK_INT * input_array_offsets, int * indices, int max_iter, int * actual_indices, CCTK_INT * input_array_strides, CCTK_INT * input_array_min_subscripts,const CCTK_INT * input_array_dims, int num_points, int * actual_iters_per_dim, int * iters_per_dim, int N_dims, const void *const input_arrays[], const CCTK_INT output_number_type_codes[], void * const output_numbers[], int param_table_handle) -{ - int iter = 0; - int sum_indices = 0; - int flag, product, j, k; - - /* Weight variables */ - CCTK_REAL weight_sum = 0.0; - CCTK_REAL weight_value = 1.0; - -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - switch (output_number_type_codes[i]) - { - /* out values type switches*/ - case CCTK_VARIABLE_BYTE: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_BYTE, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - case CCTK_VARIABLE_INT: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_INT, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #ifdef HAVE_CCTK_INT1 - case CCTK_VARIABLE_INT1: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_INT1, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_INT2 - case CCTK_VARIABLE_INT2: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_INT2, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_INT4 - case CCTK_VARIABLE_INT4: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_INT4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_INT8 - case CCTK_VARIABLE_INT8: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_INT8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - case CCTK_VARIABLE_REAL: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_REAL, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #ifdef HAVE_CCTK_REAL4 - case CCTK_VARIABLE_REAL4: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_REAL4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_REAL8 - case CCTK_VARIABLE_REAL8: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_REAL8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - #ifdef HAVE_CCTK_REAL16 - case CCTK_VARIABLE_REAL16: - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) - break; - #endif - case CCTK_VARIABLE_COMPLEX: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #ifdef HAVE_CCTK_COMPLEX8 - case CCTK_VARIABLE_COMPLEX8: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL4) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL4) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX16 - case CCTK_VARIABLE_COMPLEX16: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL8) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL8) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - - break; - #endif - #ifdef HAVE_CCTK_COMPLEX32 - case CCTK_VARIABLE_COMPLEX32: -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - (inval).Re = (CCTK_REAL16) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL16) (typed_vdata[sum_indices]).Im; - -#define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); -#define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; -#define EXTRA_STEP(a, b) - - ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) -#undef REDUCTION_OPERATION -#undef WEIGHTED_REDUCTION_OPERATION -#undef REDUCTION_INITIAL -#undef EXTRA_STEP -#ifdef CUBE_ABS -#undef CUBE_ABS -#endif -#define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) - -#ifdef CCTK_REAL_PRECISION_4 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_8 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); -#elif CCTK_REAL_PRECISION_16 -#undef REDUCTION_PREOP_CAST -#define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ - inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); -#endif - -#define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); -#define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); -#define REDUCTION_INITIAL(num) num = 0; -#define EXTRA_STEP(a, b) - break; - #endif - } - Util_TableSetInt(param_table_handle, num_points, "num_points"); - Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); - return 0; -} -#endif +/* int LocalReduce_Norm3_COMPLEX(int i, int weight_on, const void * const weight, CCTK_INT * input_array_offsets, int * indices, int max_iter, int * actual_indices, CCTK_INT * input_array_strides, CCTK_INT * input_array_min_subscripts,const CCTK_INT * input_array_dims, int num_points, int * actual_iters_per_dim, int * iters_per_dim, int N_dims, const void *const input_arrays[], const CCTK_INT output_number_type_codes[], void * const output_numbers[], int param_table_handle) */ +/* { */ +/* int iter = 0; */ +/* int sum_indices = 0; */ +/* int flag, product, j, k; */ + +/* /\* Weight variables *\/ */ +/* CCTK_REAL weight_sum = 0.0; */ +/* CCTK_REAL weight_value = 1.0; */ + +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) CCTK_CmplxAbs(typed_vdata[sum_indices]); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) CCTK_CmplxAbs(typed_vdata[sum_indices]); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) CCTK_CmplxAbs(typed_vdata[sum_indices]); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* switch (output_number_type_codes[i]) */ +/* { */ +/* /\* out values type switches*\/ */ +/* case CCTK_VARIABLE_BYTE: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_BYTE, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* case CCTK_VARIABLE_INT: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_INT, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #ifdef HAVE_CCTK_INT1 */ +/* case CCTK_VARIABLE_INT1: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_INT1, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_INT2 */ +/* case CCTK_VARIABLE_INT2: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_INT2, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_INT4 */ +/* case CCTK_VARIABLE_INT4: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_INT4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_INT8 */ +/* case CCTK_VARIABLE_INT8: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_INT8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* case CCTK_VARIABLE_REAL: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_REAL, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #ifdef HAVE_CCTK_REAL4 */ +/* case CCTK_VARIABLE_REAL4: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_REAL4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_REAL8 */ +/* case CCTK_VARIABLE_REAL8: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_REAL8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_REAL16 */ +/* case CCTK_VARIABLE_REAL16: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL4) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL4) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL8) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL8) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL16) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL16) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ +/* } */ +/* Util_TableSetInt(param_table_handle, num_points, "num_points"); */ +/* Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); */ +/* return 0; */ +/* } */ + + +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* int LocalReduce_Norm3_COMPLEX8(int i, int weight_on, const void * const weight, CCTK_INT * input_array_offsets, int * indices, int max_iter, int * actual_indices, CCTK_INT * input_array_strides, CCTK_INT * input_array_min_subscripts,const CCTK_INT * input_array_dims, int num_points, int * actual_iters_per_dim, int * iters_per_dim, int N_dims, const void *const input_arrays[], const CCTK_INT output_number_type_codes[], void * const output_numbers[], int param_table_handle) */ +/* { */ +/* int iter = 0; */ +/* int sum_indices = 0; */ +/* int flag, product, j, k; */ + +/* /\* Weight variables *\/ */ +/* CCTK_REAL weight_sum = 0.0; */ +/* CCTK_REAL weight_value = 1.0; */ + +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* switch (output_number_type_codes[i]) */ +/* { */ +/* /\* out values type switches*\/ */ +/* case CCTK_VARIABLE_BYTE: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_BYTE, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* case CCTK_VARIABLE_INT: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_INT, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #ifdef HAVE_CCTK_INT1 */ +/* case CCTK_VARIABLE_INT1: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_INT1, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_INT2 */ +/* case CCTK_VARIABLE_INT2: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_INT2, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_INT4 */ +/* case CCTK_VARIABLE_INT4: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_INT4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_INT8 */ +/* case CCTK_VARIABLE_INT8: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_INT8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* case CCTK_VARIABLE_REAL: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_REAL, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #ifdef HAVE_CCTK_REAL4 */ +/* case CCTK_VARIABLE_REAL4: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_REAL4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_REAL8 */ +/* case CCTK_VARIABLE_REAL8: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_REAL8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_REAL16 */ +/* case CCTK_VARIABLE_REAL16: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL4) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL4) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL8) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL8) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL16) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL16) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX8, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ +/* } */ +/* Util_TableSetInt(param_table_handle, num_points, "num_points"); */ +/* Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); */ +/* return 0; */ +/* } */ +/* #endif */ + +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* int LocalReduce_Norm3_COMPLEX16(int i, int weight_on, const void * const weight, CCTK_INT * input_array_offsets, int * indices, int max_iter, int * actual_indices, CCTK_INT * input_array_strides, CCTK_INT * input_array_min_subscripts,const CCTK_INT * input_array_dims, int num_points, int * actual_iters_per_dim, int * iters_per_dim, int N_dims, const void *const input_arrays[], const CCTK_INT output_number_type_codes[], void * const output_numbers[], int param_table_handle) */ +/* { */ +/* int iter = 0; */ +/* int sum_indices = 0; */ +/* int flag, product, j, k; */ + +/* /\* Weight variables *\/ */ +/* CCTK_REAL weight_sum = 0.0; */ +/* CCTK_REAL weight_value = 1.0; */ + +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* switch (output_number_type_codes[i]) */ +/* { */ +/* /\* out values type switches*\/ */ +/* case CCTK_VARIABLE_BYTE: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_BYTE, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* case CCTK_VARIABLE_INT: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_INT, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #ifdef HAVE_CCTK_INT1 */ +/* case CCTK_VARIABLE_INT1: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_INT1, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_INT2 */ +/* case CCTK_VARIABLE_INT2: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_INT2, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_INT4 */ +/* case CCTK_VARIABLE_INT4: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_INT4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_INT8 */ +/* case CCTK_VARIABLE_INT8: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_INT8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* case CCTK_VARIABLE_REAL: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_REAL, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #ifdef HAVE_CCTK_REAL4 */ +/* case CCTK_VARIABLE_REAL4: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_REAL4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_REAL8 */ +/* case CCTK_VARIABLE_REAL8: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_REAL8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_REAL16 */ +/* case CCTK_VARIABLE_REAL16: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL4) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL4) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL8) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL8) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL16) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL16) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX16, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ +/* } */ +/* Util_TableSetInt(param_table_handle, num_points, "num_points"); */ +/* Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); */ +/* return 0; */ +/* } */ +/* #endif */ + +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* int LocalReduce_Norm3_COMPLEX32(int i, int weight_on, const void * const weight, CCTK_INT * input_array_offsets, int * indices, int max_iter, int * actual_indices, CCTK_INT * input_array_strides, CCTK_INT * input_array_min_subscripts,const CCTK_INT * input_array_dims, int num_points, int * actual_iters_per_dim, int * iters_per_dim, int N_dims, const void *const input_arrays[], const CCTK_INT output_number_type_codes[], void * const output_numbers[], int param_table_handle) */ +/* { */ +/* int iter = 0; */ +/* int sum_indices = 0; */ +/* int flag, product, j, k; */ + +/* /\* Weight variables *\/ */ +/* CCTK_REAL weight_sum = 0.0; */ +/* CCTK_REAL weight_value = 1.0; */ + +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* switch (output_number_type_codes[i]) */ +/* { */ +/* /\* out values type switches*\/ */ +/* case CCTK_VARIABLE_BYTE: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_BYTE, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* case CCTK_VARIABLE_INT: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_INT, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #ifdef HAVE_CCTK_INT1 */ +/* case CCTK_VARIABLE_INT1: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_INT1, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_INT2 */ +/* case CCTK_VARIABLE_INT2: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_INT2, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_INT4 */ +/* case CCTK_VARIABLE_INT4: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_INT4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_INT8 */ +/* case CCTK_VARIABLE_INT8: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_INT8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* case CCTK_VARIABLE_REAL: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_REAL, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #ifdef HAVE_CCTK_REAL4 */ +/* case CCTK_VARIABLE_REAL4: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_REAL4, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_REAL8 */ +/* case CCTK_VARIABLE_REAL8: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_REAL8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_REAL16 */ +/* case CCTK_VARIABLE_REAL16: */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_REAL16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* break; */ +/* #endif */ +/* case CCTK_VARIABLE_COMPLEX: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_CmplxMul(scalar, CCTK_CmplxMul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_CmplxAdd( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_COMPLEX, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #ifdef HAVE_CCTK_COMPLEX8 */ +/* case CCTK_VARIABLE_COMPLEX8: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL4) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL4) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx8Mul(scalar, CCTK_Cmplx8Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx8Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_COMPLEX8, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX16 */ +/* case CCTK_VARIABLE_COMPLEX16: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL8) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL8) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx16Mul(scalar, CCTK_Cmplx16Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx16Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_COMPLEX16, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ + +/* break; */ +/* #endif */ +/* #ifdef HAVE_CCTK_COMPLEX32 */ +/* case CCTK_VARIABLE_COMPLEX32: */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* (inval).Re = (CCTK_REAL16) (typed_vdata[sum_indices]).Re; (inval).Im = (CCTK_REAL16) (typed_vdata[sum_indices]).Im; */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) scalar.Re=scalar.Re*weight; scalar.Im=scalar.Im*weight; scalar = CCTK_Cmplx32Mul(scalar, CCTK_Cmplx32Mul(scalar,scalar)); (scalar).Re = ABS((scalar).Re); (scalar).Im = ABS((scalar).Im); Norm3 = CCTK_Cmplx32Add( Norm3, scalar); */ +/* #define REDUCTION_INITIAL(num) (num).Re = 0.0; (num).Im = 0.0; */ +/* #define EXTRA_STEP(a, b) */ + +/* ITERATE_ON_ARRAY(i,CCTK_COMPLEX32, input_arrays[i], CCTK_COMPLEX32, output_numbers[i], weight_on, weight, input_array_offsets[i], indices, sum_indices, max_iter, iter, flag, actual_indices,input_array_strides, input_array_min_subscripts,input_array_dims,product) */ +/* #undef REDUCTION_OPERATION */ +/* #undef WEIGHTED_REDUCTION_OPERATION */ +/* #undef REDUCTION_INITIAL */ +/* #undef EXTRA_STEP */ +/* #ifdef CUBE_ABS */ +/* #undef CUBE_ABS */ +/* #endif */ +/* #define CUBE_ABS(x) ((CCTK_REAL)(x) < 0 ? -((x) * (x) * (x)) : (x) * (x) * (x)) */ + +/* #ifdef CCTK_REAL_PRECISION_4 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL4) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_8 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL8) ((typed_vdata[sum_indices]).Re); */ +/* #elif CCTK_REAL_PRECISION_16 */ +/* #undef REDUCTION_PREOP_CAST */ +/* #define REDUCTION_PREOP_CAST(inval, typed_vdata,sum_indices, out_type) \ */ +/* inval = (CCTK_REAL16) ((typed_vdata[sum_indices]).Re); */ +/* #endif */ + +/* #define REDUCTION_OPERATION(Norm3, scalar) Norm3 = Norm3 + CUBE_ABS(scalar); */ +/* #define WEIGHTED_REDUCTION_OPERATION(Norm3, scalar, weight) Norm3 = Norm3 + CUBE_ABS(scalar*weight); */ +/* #define REDUCTION_INITIAL(num) num = 0; */ +/* #define EXTRA_STEP(a, b) */ +/* break; */ +/* #endif */ +/* } */ +/* Util_TableSetInt(param_table_handle, num_points, "num_points"); */ +/* Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); */ +/* return 0; */ +/* } */ +/* #endif */ #ifdef __cplusplus |