libflame  revision_anchor
Functions
bli_inverts.c File Reference

(r)

Functions

void bli_sinverts (conj_t conj, float *alpha)
void bli_dinverts (conj_t conj, double *alpha)
void bli_cinverts (conj_t conj, scomplex *alpha)
void bli_zinverts (conj_t conj, dcomplex *alpha)

Function Documentation

void bli_cinverts ( conj_t  conj,
scomplex alpha 
)

References bli_is_conj(), scomplex::imag, and scomplex::real.

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().

{
    float  one = 1.0F;
    float  temp;

    temp = one / ( alpha->real * alpha->real +
                   alpha->imag * alpha->imag );
    alpha->real = alpha->real *  temp;
    alpha->imag = alpha->imag * -temp;

    if ( bli_is_conj( conj ) )
        bli_cconjs( alpha );
}
void bli_dinverts ( conj_t  conj,
double *  alpha 
)
void bli_sinverts ( conj_t  conj,
float *  alpha 
)
void bli_zinverts ( conj_t  conj,
dcomplex alpha 
)

References bli_is_conj(), dcomplex::imag, and dcomplex::real.

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().

{
    double one = 1.0;
    double temp;

    temp = one / ( alpha->real * alpha->real +
                   alpha->imag * alpha->imag );
    alpha->real = alpha->real *  temp;
    alpha->imag = alpha->imag * -temp;

    if ( bli_is_conj( conj ) )
        bli_zconjs( alpha );
}