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
	)

Referenced by FLA_Trinv_ln_opd_var1(), FLA_Trinv_ln_opd_var2(), FLA_Trinv_ln_opd_var3(), FLA_Trinv_ln_opd_var4(), FLA_Trinv_un_opd_var1(), FLA_Trinv_un_opd_var2(), FLA_Trinv_un_opd_var3(), and FLA_Trinv_un_opd_var4().

{
    double one = 1.0;

    *alpha = one / *alpha;
}

void bli_sinverts	(	conj_t	conj,
		float *	alpha
	)

Referenced by FLA_Trinv_ln_ops_var1(), FLA_Trinv_ln_ops_var2(), FLA_Trinv_ln_ops_var3(), FLA_Trinv_ln_ops_var4(), FLA_Trinv_un_ops_var1(), FLA_Trinv_un_ops_var2(), FLA_Trinv_un_ops_var3(), and FLA_Trinv_un_ops_var4().

{
    float  one = 1.0F;

    *alpha = one / *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 );
}