55 float* buff_A = FLA_FLOAT_PTR( A );
56 float* buff_d = FLA_FLOAT_PTR( d );
57 float* buff_e = ( n_A != 1 ? FLA_FLOAT_PTR( e ) : NULL );
59 for ( i = 0; i < n_A; ++
i )
61 float* alpha11 = buff_A + (
i )*cs_A + (i )*rs_A;
62 float* a12t_l = buff_A + (i+1)*cs_A + (i )*rs_A;
63 float* delta1 = buff_d + (
i )*inc_d;
64 float* epsilon1 = buff_e + (
i )*inc_e;
66 int n_ahead = n_A - i - 1;
81 double* buff_A = FLA_DOUBLE_PTR( A );
82 double* buff_d = FLA_DOUBLE_PTR( d );
83 double* buff_e = ( n_A != 1 ? FLA_DOUBLE_PTR( e ) : NULL );
85 for ( i = 0; i < n_A; ++
i )
87 double* alpha11 = buff_A + (
i )*cs_A + (i )*rs_A;
88 double* a12t_l = buff_A + (i+1)*cs_A + (i )*rs_A;
89 double* delta1 = buff_d + (
i )*inc_d;
90 double* epsilon1 = buff_e + (
i )*inc_e;
92 int n_ahead = n_A - i - 1;
107 scomplex* buff_A = FLA_COMPLEX_PTR( A );
108 float* buff_d = FLA_FLOAT_PTR( d );
109 float* buff_e = ( n_A != 1 ? FLA_FLOAT_PTR( e ) : NULL );
111 for ( i = 0; i < n_A; ++
i )
113 scomplex* alpha11 = buff_A + (
i )*cs_A + (i )*rs_A;
114 scomplex* a12t_l = buff_A + (i+1)*cs_A + (i )*rs_A;
115 float* delta1 = buff_d + (
i )*inc_d;
116 float* epsilon1 = buff_e + (
i )*inc_e;
118 int n_ahead = n_A - i - 1;
121 *delta1 = alpha11->
real;
125 *epsilon1 = a12t_l->
real;
131 case FLA_DOUBLE_COMPLEX:
133 dcomplex* buff_A = FLA_DOUBLE_COMPLEX_PTR( A );
134 double* buff_d = FLA_DOUBLE_PTR( d );
135 double* buff_e = ( n_A != 1 ? FLA_DOUBLE_PTR( e ) : NULL );
137 for ( i = 0; i < n_A; ++
i )
139 dcomplex* alpha11 = buff_A + (
i )*cs_A + (i )*rs_A;
140 dcomplex* a12t_l = buff_A + (i+1)*cs_A + (i )*rs_A;
141 double* delta1 = buff_d + (
i )*inc_d;
142 double* epsilon1 = buff_e + (
i )*inc_e;
144 int n_ahead = n_A - i - 1;
147 *delta1 = alpha11->
real;
151 *epsilon1 = a12t_l->
real;
float real
Definition: blis_type_defs.h:134
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
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
dim_t FLA_Obj_vector_inc(FLA_Obj obj)
Definition: FLA_Query.c:145
Definition: blis_type_defs.h:137