48 float* buff_A = FLA_FLOAT_PTR( A );
49 float* buff_alpha = FLA_FLOAT_PTR( alpha );
50 for ( i = 0; i < n_A; ++
i )
52 float* alpha11 = buff_A + (
i )*cs_A + (i )*rs_A;
53 float* a12t_l = buff_A + (i+1)*cs_A + (i )*rs_A;
54 int n_ahead = n_A - i - 1;
56 bl1_sscals( buff_alpha, alpha11 );
59 bl1_sscals( buff_alpha, a12t_l );
67 double* buff_A = FLA_DOUBLE_PTR( A );
68 double* buff_alpha = FLA_DOUBLE_PTR( alpha );
69 for ( i = 0; i < n_A; ++
i )
71 double* alpha11 = buff_A + (
i )*cs_A + (i )*rs_A;
72 double* a12t_l = buff_A + (i+1)*cs_A + (i )*rs_A;
73 int n_ahead = n_A - i - 1;
75 bl1_dscals( buff_alpha, alpha11 );
78 bl1_dscals( buff_alpha, a12t_l );
86 scomplex* buff_A = FLA_COMPLEX_PTR( A );
87 float* buff_alpha = FLA_FLOAT_PTR( alpha );
88 for ( i = 0; i < n_A; ++
i )
90 scomplex* alpha11 = buff_A + (
i )*cs_A + (i )*rs_A;
91 scomplex* a12t_l = buff_A + (i+1)*cs_A + (i )*rs_A;
92 int n_ahead = n_A - i - 1;
94 bl1_csscals( buff_alpha, alpha11 );
97 bl1_csscals( buff_alpha, a12t_l );
103 case FLA_DOUBLE_COMPLEX:
105 dcomplex* buff_A = FLA_DOUBLE_COMPLEX_PTR( A );
106 double* buff_alpha = FLA_DOUBLE_PTR( alpha );
107 for ( i = 0; i < n_A; ++
i )
109 dcomplex* alpha11 = buff_A + (
i )*cs_A + (i )*rs_A;
110 dcomplex* a12t_l = buff_A + (i+1)*cs_A + (i )*rs_A;
111 int n_ahead = n_A - i - 1;
113 bl1_zdscals( buff_alpha, alpha11 );
116 bl1_zdscals( buff_alpha, a12t_l );
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
Definition: blis_type_defs.h:132
int FLA_Datatype
Definition: FLA_type_defs.h:49
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
int i
Definition: bl1_axmyv2.c:145
Definition: blis_type_defs.h:137