190 float* buff_A = FLA_FLOAT_PTR( A );
191 float* buff_d = FLA_FLOAT_PTR( d );
192 float* buff_e = ( m_A != 1 ? FLA_FLOAT_PTR( e ) : NULL );
194 for (
i = 0;
i < m_A; ++
i )
196 float* alpha11 = buff_A + (
i )*cs_A + (
i )*rs_A;
197 float* a21_t = buff_A + (
i )*cs_A + (
i+1)*rs_A;
198 float* delta1 = buff_d + (
i )*inc_d;
199 float* epsilon1 = buff_e + (
i )*inc_e;
201 int m_ahead = m_A -
i - 1;
216 double* buff_A = FLA_DOUBLE_PTR( A );
217 double* buff_d = FLA_DOUBLE_PTR( d );
218 double* buff_e = ( m_A != 1 ? FLA_DOUBLE_PTR( e ) : NULL );
220 for (
i = 0;
i < m_A; ++
i )
222 double* alpha11 = buff_A + (
i )*cs_A + (
i )*rs_A;
223 double* a21_t = buff_A + (
i )*cs_A + (
i+1)*rs_A;
224 double* delta1 = buff_d + (
i )*inc_d;
225 double* epsilon1 = buff_e + (
i )*inc_e;
227 int m_ahead = m_A -
i - 1;
242 scomplex* buff_A = FLA_COMPLEX_PTR( A );
243 float* buff_d = FLA_FLOAT_PTR( d );
244 float* buff_e = ( m_A != 1 ? FLA_FLOAT_PTR( e ) : NULL );
246 for (
i = 0;
i < m_A; ++
i )
248 scomplex* alpha11 = buff_A + (
i )*cs_A + (
i )*rs_A;
249 scomplex* a21_t = buff_A + (
i )*cs_A + (
i+1)*rs_A;
250 float* delta1 = buff_d + (
i )*inc_d;
251 float* epsilon1 = buff_e + (
i )*inc_e;
253 int m_ahead = m_A -
i - 1;
256 *delta1 = alpha11->
real;
260 *epsilon1 = a21_t->
real;
266 case FLA_DOUBLE_COMPLEX:
268 dcomplex* buff_A = FLA_DOUBLE_COMPLEX_PTR( A );
269 double* buff_d = FLA_DOUBLE_PTR( d );
270 double* buff_e = ( m_A != 1 ? FLA_DOUBLE_PTR( e ) : NULL );
272 for (
i = 0;
i < m_A; ++
i )
274 dcomplex* alpha11 = buff_A + (
i )*cs_A + (
i )*rs_A;
275 dcomplex* a21_t = buff_A + (
i )*cs_A + (
i+1)*rs_A;
276 double* delta1 = buff_d + (
i )*inc_d;
277 double* epsilon1 = buff_e + (
i )*inc_e;
279 int m_ahead = m_A -
i - 1;
282 *delta1 = alpha11->
real;
286 *epsilon1 = a21_t->
real;
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
dim_t FLA_Obj_vector_inc(FLA_Obj obj)
Definition: FLA_Query.c:145
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int FLA_Datatype
Definition: FLA_type_defs.h:49
int i
Definition: bl1_axmyv2.c:145
Definition: blis_type_defs.h:138
double real
Definition: blis_type_defs.h:139
Definition: blis_type_defs.h:133
float real
Definition: blis_type_defs.h:134