57 float* buff_A = FLA_FLOAT_PTR( A );
58 float* buff_d = FLA_FLOAT_PTR( d );
59 float* buff_e = ( n_A != 1 ? FLA_FLOAT_PTR( e ) : NULL );
61 for ( i = 0; i < n_A; ++
i )
63 float* alpha11 = buff_A + (
i )*cs_A + (i )*rs_A;
64 float* a12t_l = buff_A + (i+1)*cs_A + (i )*rs_A;
65 float* delta1 = buff_d + (
i )*inc_d;
66 float* epsilon1 = buff_e + (
i )*inc_e;
68 int n_ahead = n_A - i - 1;
83 double* buff_A = FLA_DOUBLE_PTR( A );
84 double* buff_d = FLA_DOUBLE_PTR( d );
85 double* buff_e = ( n_A != 1 ? FLA_DOUBLE_PTR( e ) : NULL );
87 for ( i = 0; i < n_A; ++
i )
89 double* alpha11 = buff_A + (
i )*cs_A + (i )*rs_A;
90 double* a12t_l = buff_A + (i+1)*cs_A + (i )*rs_A;
91 double* delta1 = buff_d + (
i )*inc_d;
92 double* epsilon1 = buff_e + (
i )*inc_e;
94 int n_ahead = n_A - i - 1;
109 scomplex* buff_A = FLA_COMPLEX_PTR( A );
110 scomplex* buff_d = FLA_COMPLEX_PTR( d );
111 scomplex* buff_e = ( n_A != 1 ? FLA_COMPLEX_PTR( e ) : NULL );
113 for ( i = 0; i < n_A; ++
i )
115 scomplex* alpha11 = buff_A + (
i )*cs_A + (i )*rs_A;
116 scomplex* a12t_l = buff_A + (i+1)*cs_A + (i )*rs_A;
118 scomplex* epsilon1 = buff_e + (
i )*inc_e;
120 int n_ahead = n_A - i - 1;
133 case FLA_DOUBLE_COMPLEX:
135 dcomplex* buff_A = FLA_DOUBLE_COMPLEX_PTR( A );
136 dcomplex* buff_d = FLA_DOUBLE_COMPLEX_PTR( d );
137 dcomplex* buff_e = ( n_A != 1 ? FLA_DOUBLE_COMPLEX_PTR( e ) : NULL );
139 for ( i = 0; i < n_A; ++
i )
141 dcomplex* alpha11 = buff_A + (
i )*cs_A + (i )*rs_A;
142 dcomplex* a12t_l = buff_A + (i+1)*cs_A + (i )*rs_A;
144 dcomplex* epsilon1 = buff_e + (
i )*inc_e;
146 int n_ahead = n_A - i - 1;
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
dim_t FLA_Obj_vector_inc(FLA_Obj obj)
Definition: FLA_Query.c:145
Definition: blis_type_defs.h:137