42 float* buff_d = FLA_FLOAT_PTR( d );
43 float* buff_1 = FLA_FLOAT_PTR(
FLA_ONE );
53 double* buff_d = FLA_DOUBLE_PTR( d );
54 double* buff_1 = FLA_DOUBLE_PTR(
FLA_ONE );
64 scomplex* buff_b = ( m > 1 ? FLA_COMPLEX_PTR( b ) : NULL );
65 scomplex* buff_d = FLA_COMPLEX_PTR( d );
72 for ( i = 1; i < m; ++
i )
74 scomplex* beta1 = buff_b + (i-1)*inc_b;
79 if ( beta1->
imag == 0.0F )
84 bl1_cabsval2( beta1, &absv );
85 bl1_cinvscals( &absv, delta1 );
92 bl1_ccopyconj( delta1, &conj_delta1 );
93 bl1_cscals( &conj_delta1, beta2 );
98 case FLA_DOUBLE_COMPLEX:
100 dcomplex* buff_b = ( m > 1 ? FLA_DOUBLE_COMPLEX_PTR( b ) : NULL );
101 dcomplex* buff_d = FLA_DOUBLE_COMPLEX_PTR( d );
108 for ( i = 1; i < m; ++
i )
110 dcomplex* beta1 = buff_b + (i-1)*inc_b;
115 if ( beta1->
imag == 0.0 )
120 bl1_zabsval2( beta1, &absv );
121 bl1_zinvscals( &absv, delta1 );
128 bl1_zcopyconj( delta1, &conj_delta1 );
void bl1_csetv(int m, scomplex *sigma, scomplex *x, int incx)
Definition: bl1_setv.c:52
void bl1_zsetv(int m, dcomplex *sigma, dcomplex *x, int incx)
Definition: bl1_setv.c:66
double imag
Definition: blis_type_defs.h:139
Definition: blis_type_defs.h:82
FLA_Obj FLA_ONE
Definition: FLA_Init.c:18
void bl1_dsetv(int m, double *sigma, double *x, int incx)
Definition: bl1_setv.c:39
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
void bl1_ssetv(int m, float *sigma, float *x, int incx)
Definition: bl1_setv.c:26
Definition: blis_type_defs.h:132
dim_t FLA_Obj_vector_dim(FLA_Obj obj)
Definition: FLA_Query.c:137
int FLA_Datatype
Definition: FLA_type_defs.h:49
int i
Definition: bl1_axmyv2.c:145
dim_t FLA_Obj_vector_inc(FLA_Obj obj)
Definition: FLA_Query.c:145
float imag
Definition: blis_type_defs.h:134
Definition: blis_type_defs.h:137