192 float* buff_A = FLA_FLOAT_PTR( A );
193 float* buff_d = FLA_FLOAT_PTR( d );
194 float* buff_e = ( m_A != 1 ? FLA_FLOAT_PTR( e ) : NULL );
196 for (
i = 0;
i < m_A; ++
i )
198 float* alpha11 = buff_A + (
i )*cs_A + (
i )*rs_A;
199 float* a21_t = buff_A + (
i )*cs_A + (
i+1)*rs_A;
200 float* delta1 = buff_d + (
i )*inc_d;
201 float* epsilon1 = buff_e + (
i )*inc_e;
203 int m_ahead = m_A -
i - 1;
218 double* buff_A = FLA_DOUBLE_PTR( A );
219 double* buff_d = FLA_DOUBLE_PTR( d );
220 double* buff_e = ( m_A != 1 ? FLA_DOUBLE_PTR( e ) : NULL );
222 for (
i = 0;
i < m_A; ++
i )
224 double* alpha11 = buff_A + (
i )*cs_A + (
i )*rs_A;
225 double* a21_t = buff_A + (
i )*cs_A + (
i+1)*rs_A;
226 double* delta1 = buff_d + (
i )*inc_d;
227 double* epsilon1 = buff_e + (
i )*inc_e;
229 int m_ahead = m_A -
i - 1;
244 scomplex* buff_A = FLA_COMPLEX_PTR( A );
245 scomplex* buff_d = FLA_COMPLEX_PTR( d );
246 scomplex* buff_e = ( m_A != 1 ? FLA_COMPLEX_PTR( e ) : NULL );
248 for (
i = 0;
i < m_A; ++
i )
250 scomplex* alpha11 = buff_A + (
i )*cs_A + (
i )*rs_A;
251 scomplex* a21_t = buff_A + (
i )*cs_A + (
i+1)*rs_A;
253 scomplex* epsilon1 = buff_e + (
i )*inc_e;
255 int m_ahead = m_A -
i - 1;
268 case FLA_DOUBLE_COMPLEX:
270 dcomplex* buff_A = FLA_DOUBLE_COMPLEX_PTR( A );
271 dcomplex* buff_d = FLA_DOUBLE_COMPLEX_PTR( d );
272 dcomplex* buff_e = ( m_A != 1 ? FLA_DOUBLE_COMPLEX_PTR( e ) : NULL );
274 for (
i = 0;
i < m_A; ++
i )
276 dcomplex* alpha11 = buff_A + (
i )*cs_A + (
i )*rs_A;
277 dcomplex* a21_t = buff_A + (
i )*cs_A + (
i+1)*rs_A;
279 dcomplex* epsilon1 = buff_e + (
i )*inc_e;
281 int m_ahead = m_A -
i - 1;
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
Definition: blis_type_defs.h:133