31 float *buff_A = (
float * ) FLA_FLOAT_PTR( A );
32 float *value_ptr = (
float * ) diag_value;
34 for ( j = 0; j < min_m_n; j++ )
35 buff_A[ j*cs + j*rs ] += *value_ptr;
42 double *buff_A = (
double * ) FLA_DOUBLE_PTR( A );
43 double *value_ptr = (
double * ) diag_value;
45 for ( j = 0; j < min_m_n; j++ )
46 buff_A[ j*cs + j*rs ] += *value_ptr;
56 for ( j = 0; j < min_m_n; j++ )
58 buff_A[ j*cs + j*rs ].
real += value_ptr->
real;
59 buff_A[ j*cs + j*rs ].
imag += value_ptr->
imag;
65 case FLA_DOUBLE_COMPLEX:
70 for ( j = 0; j < min_m_n; j++ )
72 buff_A[ j*cs + j*rs ].
real += value_ptr->
real;
73 buff_A[ j*cs + j*rs ].
imag += value_ptr->
imag;
float real
Definition: blis_type_defs.h:134
unsigned long dim_t
Definition: FLA_type_defs.h:71
double imag
Definition: blis_type_defs.h:139
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167
double real
Definition: blis_type_defs.h:139
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
Definition: blis_type_defs.h:132
FLA_Error FLA_Add_to_diag_check(void *diag_value, FLA_Obj A)
Definition: FLA_Add_to_diag_check.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
int FLA_Datatype
Definition: FLA_type_defs.h:49
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
float imag
Definition: blis_type_defs.h:134
Definition: blis_type_defs.h:137
dim_t FLA_Obj_min_dim(FLA_Obj obj)
Definition: FLA_Query.c:153