bli_invert2s.c File Reference

(r)

Functions
void	bli_sinvert2s (char conj, float *alpha, float *beta)
void	bli_dinvert2s (char conj, double *alpha, double *beta)
void	bli_cinvert2s (char conj, scomplex *alpha, scomplex *beta)
void	bli_zinvert2s (char conj, dcomplex *alpha, dcomplex *beta)

---

Function Documentation

void bli_cinvert2s	(	char	conj,
		scomplex *	alpha,
		scomplex *	beta
	)

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

Referenced by bli_cinvscalm(), and bli_cinvscalv().

{
    float  one = 1.0F;
    float  temp;

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

    if ( bli_does_conj( conj ) )
        bli_cconjs( beta );
}

void bli_dinvert2s	(	char	conj,
		double *	alpha,
		double *	beta
	)

Referenced by bli_dinvscalm(), and bli_zdinvscalm().

{
    double one = 1.0;

    *beta = one / *alpha;
}

void bli_sinvert2s	(	char	conj,
		float *	alpha,
		float *	beta
	)

Referenced by bli_csinvscalm(), and bli_sinvscalm().

{
    float  one = 1.0F;

    *beta = one / *alpha;
}

void bli_zinvert2s	(	char	conj,
		dcomplex *	alpha,
		dcomplex *	beta
	)

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

Referenced by bli_zinvscalm(), and bli_zinvscalv().

{
    double one = 1.0;
    double temp;

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

    if ( bli_does_conj( conj ) )
        bli_zconjs( beta );
}