libflame revision_anchor
Functions
bli_inverts.c File Reference

(r)

Functions

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

Function Documentation

void bli_cinverts ( char  conj,
scomplex alpha 
)

References bli_does_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_does_conj( conj ) )
        bli_cconjs( alpha );
}
void bli_dinverts ( char  conj,
double *  alpha 
)
void bli_sinverts ( char  conj,
float *  alpha 
)
void bli_zinverts ( char  conj,
dcomplex alpha 
)

References bli_does_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_does_conj( conj ) )
        bli_zconjs( alpha );
}