144 float* buff_A = FLA_FLOAT_PTR( A );
145 float* buff_alpha = FLA_FLOAT_PTR( alpha );
146 for (
i = 0;
i < m_A; ++
i )
148 float* alpha11 = buff_A + (
i )*cs_A + (
i )*rs_A;
149 float* a21_t = buff_A + (
i )*cs_A + (
i+1)*rs_A;
150 int m_ahead = m_A -
i - 1;
152 bl1_sscals( buff_alpha, alpha11 );
155 bl1_sscals( buff_alpha, a21_t );
163 double* buff_A = FLA_DOUBLE_PTR( A );
164 double* buff_alpha = FLA_DOUBLE_PTR( alpha );
165 for (
i = 0;
i < m_A; ++
i )
167 double* alpha11 = buff_A + (
i )*cs_A + (
i )*rs_A;
168 double* a21_t = buff_A + (
i )*cs_A + (
i+1)*rs_A;
169 int m_ahead = m_A -
i - 1;
171 bl1_dscals( buff_alpha, alpha11 );
174 bl1_dscals( buff_alpha, a21_t );
182 scomplex* buff_A = FLA_COMPLEX_PTR( A );
183 float* buff_alpha = FLA_FLOAT_PTR( alpha );
184 for (
i = 0;
i < m_A; ++
i )
186 scomplex* alpha11 = buff_A + (
i )*cs_A + (
i )*rs_A;
187 scomplex* a21_t = buff_A + (
i )*cs_A + (
i+1)*rs_A;
188 int m_ahead = m_A -
i - 1;
190 bl1_csscals( buff_alpha, alpha11 );
193 bl1_csscals( buff_alpha, a21_t );
199 case FLA_DOUBLE_COMPLEX:
201 dcomplex* buff_A = FLA_DOUBLE_COMPLEX_PTR( A );
202 double* buff_alpha = FLA_DOUBLE_PTR( alpha );
203 for (
i = 0;
i < m_A; ++
i )
205 dcomplex* alpha11 = buff_A + (
i )*cs_A + (
i )*rs_A;
206 dcomplex* a21_t = buff_A + (
i )*cs_A + (
i+1)*rs_A;
207 int m_ahead = m_A -
i - 1;
209 bl1_zdscals( buff_alpha, alpha11 );
212 bl1_zdscals( buff_alpha, a21_t );
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
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