67 if( num_vecs != 0 || vecs != NULL )
69 if( num_targ_vecs != 1 || targ_vecs == NULL )
78 alpha = val_ind->
value;
83 z_sub_dim = targ_vecs[0].
sub_dim;
84 z_val = targ_vecs[0].
values;
91 if( i < global_offset + 1 || global_offset + z_sub_dim < i )
95 z_val[(ptrdiff_t)(z_val_s * (i-global_offset-1))] = alpha;
122 val_ind->
value = alpha;
139 val_ind->
value = alpha;
const struct RTOp_obj_type_vtbl_t RTOp_obj_value_index_vtbl
int(* obj_create)(const struct RTOp_obj_type_vtbl_t *vtbl, const void *instance_data, void **obj)
const struct RTOp_obj_type_vtbl_t * obj_data_vtbl
int RTOp_TOp_set_ele_destroy(struct RTOp_RTOp *op)
int RTOp_TOp_set_ele_construct(RTOp_index_type i, RTOp_value_type alpha, struct RTOp_RTOp *op)
#define RTOp_ERR_INVALID_NUM_VECS
int(* obj_free)(const struct RTOp_obj_type_vtbl_t *vtbl, const void *instance_data, void **obj)
const struct RTOp_RTOp_vtbl_t RTOp_TOp_set_ele_vtbl
const struct RTOp_obj_type_vtbl_t RTOp_obj_null_vtbl
int RTOp_TOp_set_ele_set_i_alpha(RTOp_index_type i, RTOp_value_type alpha, struct RTOp_RTOp *op)
const struct RTOp_RTOp_vtbl_t * vtbl
RTOp_index_type global_offset
static int RTOp_TOp_set_ele_apply_op(const struct RTOp_RTOp_vtbl_t *vtbl, const void *obj_data, const int num_vecs, const struct RTOp_SubVector vecs[], const int num_targ_vecs, const struct RTOp_MutableSubVector targ_vecs[], RTOp_ReductTarget targ_obj)
#define RTOp_ERR_INVALID_NUM_TARG_VECS
Teuchos_Ordinal RTOp_index_type