54 #define max(a,b) ( (a) > (b) ? (a) : (b) )
55 #define min(a,b) ( (a) < (b) ? (a) : (b) )
58 #include "RTOp_obj_value_vtbl.h"
62 static int RTOp_TOp_max_abs_vec_scalar_apply_op(
66 , RTOp_ReductTarget reduct_obj )
73 RTOp_value_type *min_ele = (RTOp_value_type*)obj_data;
75 RTOp_index_type sub_dim;
77 RTOp_value_type *z0_val;
81 register RTOp_index_type k;
86 if( num_vecs != 0 || ( num_vecs && vecs == NULL ) )
87 return RTOp_ERR_INVALID_NUM_VECS;
88 if( num_targ_vecs != 1 || ( num_targ_vecs && targ_vecs == NULL ) )
89 return RTOp_ERR_INVALID_NUM_TARG_VECS;
95 sub_dim = targ_vecs[0].sub_dim;
97 z0_val = targ_vecs[0].values;
98 z0_val_s = targ_vecs[0].values_stride;
103 for( k = 0; k < sub_dim; ++k, z0_val += z0_val_s )
106 (*z0_val) = max(fabs((*z0_val)),(*min_ele));
117 ,
"TOp_max_abs_vec_scalar"
119 ,RTOp_TOp_max_abs_vec_scalar_apply_op
126 int RTOp_TOp_max_abs_vec_scalar_construct( RTOp_value_type min_ele,
struct RTOp_RTOp* op )
132 op->vtbl = &RTOp_TOp_max_abs_vec_scalar_vtbl;
133 op->vtbl->obj_data_vtbl->
obj_create(NULL,NULL,&op->obj_data);
134 return RTOp_TOp_max_abs_vec_scalar_init(min_ele,op);
137 int RTOp_TOp_max_abs_vec_scalar_destroy(
struct RTOp_RTOp* op )
139 op->vtbl->obj_data_vtbl->
obj_free(NULL,NULL,&op->obj_data);
145 int RTOp_TOp_max_abs_vec_scalar_init( RTOp_value_type min_ele,
struct RTOp_RTOp* op )
147 RTOp_value_type *ptr_min_ele = (RTOp_value_type*)op->obj_data;
148 *ptr_min_ele = min_ele;
int(* obj_create)(const struct RTOp_obj_type_vtbl_t *vtbl, const void *instance_data, void **obj)
int(* obj_free)(const struct RTOp_obj_type_vtbl_t *vtbl, const void *instance_data, void **obj)