libflame  revision_anchor
Functions
bli_invscalv.c File Reference

(r)

Functions

void bli_sinvscalv (conj_t conj, int n, float *alpha, float *x, int incx)
void bli_dinvscalv (conj_t conj, int n, double *alpha, double *x, int incx)
void bli_csinvscalv (conj_t conj, int n, float *alpha, scomplex *x, int incx)
void bli_cinvscalv (conj_t conj, int n, scomplex *alpha, scomplex *x, int incx)
void bli_zdinvscalv (conj_t conj, int n, double *alpha, dcomplex *x, int incx)
void bli_zinvscalv (conj_t conj, int n, dcomplex *alpha, dcomplex *x, int incx)

Function Documentation

void bli_cinvscalv ( conj_t  conj,
int  n,
scomplex alpha,
scomplex x,
int  incx 
)
void bli_csinvscalv ( conj_t  conj,
int  n,
float *  alpha,
scomplex x,
int  incx 
)

References bli_csscal().

{
    float alpha_inv;

    if ( bli_seq1( alpha ) ) return;

    alpha_inv = 1.0F / *alpha;

    bli_csscal( n,
                &alpha_inv,
                x, incx );
}
void bli_dinvscalv ( conj_t  conj,
int  n,
double *  alpha,
double *  x,
int  incx 
)
void bli_sinvscalv ( conj_t  conj,
int  n,
float *  alpha,
float *  x,
int  incx 
)
void bli_zdinvscalv ( conj_t  conj,
int  n,
double *  alpha,
dcomplex x,
int  incx 
)

References bli_zdscal().

{
    double alpha_inv;

    if ( bli_deq1( alpha ) ) return;

    alpha_inv = 1.0 / *alpha;

    bli_zdscal( n,
                &alpha_inv,
                x, incx );
}
void bli_zinvscalv ( conj_t  conj,
int  n,
dcomplex alpha,
dcomplex x,
int  incx 
)