libflame revision_anchor
Functions
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 );
}