libflame  revision_anchor
Functions
bl1_inverts.c File Reference

(r)

Functions

void bl1_sinverts (conj1_t conj, float *alpha)
 
void bl1_dinverts (conj1_t conj, double *alpha)
 
void bl1_cinverts (conj1_t conj, scomplex *alpha)
 
void bl1_zinverts (conj1_t conj, dcomplex *alpha)
 

Function Documentation

◆ bl1_cinverts()

void bl1_cinverts ( conj1_t  conj,
scomplex alpha 
)
28 {
29  float temp;
30  float s, xr_s, xi_s;
31 
32  s = bl1_fmaxabs( alpha->real, alpha->imag ); \
33  xr_s = alpha->real / s;
34  xi_s = alpha->imag / s;
35  temp = xr_s * alpha->real + xi_s * alpha->imag;
36 
37  alpha->real = xr_s / temp;
38  alpha->imag = -xi_s / temp;
39 
40  if ( bl1_is_conj( conj ) )
41  bl1_cconjs( alpha );
42 }
dcomplex temp
Definition: bl1_axpyv2b.c:301
int bl1_is_conj(conj1_t conj)
Definition: bl1_is.c:42
float imag
Definition: blis_type_defs.h:134
float real
Definition: blis_type_defs.h:134

References bl1_is_conj(), scomplex::imag, scomplex::real, and temp.

Referenced by FLA_Trinv_ln_opc_var1(), FLA_Trinv_ln_opc_var2(), FLA_Trinv_ln_opc_var3(), FLA_Trinv_ln_opc_var4(), FLA_Trinv_un_opc_var1(), FLA_Trinv_un_opc_var2(), FLA_Trinv_un_opc_var3(), and FLA_Trinv_un_opc_var4().

◆ bl1_dinverts()

void bl1_dinverts ( conj1_t  conj,
double *  alpha 
)

◆ bl1_sinverts()

void bl1_sinverts ( conj1_t  conj,
float *  alpha 
)

◆ bl1_zinverts()

void bl1_zinverts ( conj1_t  conj,
dcomplex alpha 
)
45 {
46  double temp;
47  double s, xr_s, xi_s;
48 
49  s = bl1_fmaxabs( alpha->real, alpha->imag ); \
50  xr_s = alpha->real / s;
51  xi_s = alpha->imag / s;
52  temp = xr_s * alpha->real + xi_s * alpha->imag;
53 
54  alpha->real = xr_s / temp;
55  alpha->imag = -xi_s / temp;
56 
57  if ( bl1_is_conj( conj ) )
58  bl1_zconjs( alpha );
59 }
double real
Definition: blis_type_defs.h:139
double imag
Definition: blis_type_defs.h:139

References bl1_is_conj(), dcomplex::imag, dcomplex::real, and temp.

Referenced by FLA_Trinv_ln_opz_var1(), FLA_Trinv_ln_opz_var2(), FLA_Trinv_ln_opz_var3(), FLA_Trinv_ln_opz_var4(), FLA_Trinv_un_opz_var1(), FLA_Trinv_un_opz_var2(), FLA_Trinv_un_opz_var3(), and FLA_Trinv_un_opz_var4().