libflame revision_anchor
Functions
bli_invscalv.c File Reference

(r)

Functions

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

Function Documentation

void bli_cinvscalv ( char  conj,
int  n,
scomplex alpha,
scomplex x,
int  incx 
)
void bli_csinvscalv ( char  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 ( char  conj,
int  n,
double *  alpha,
double *  x,
int  incx 
)
void bli_sinvscalv ( char  conj,
int  n,
float *  alpha,
float *  x,
int  incx 
)
void bli_zdinvscalv ( char  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 ( char  conj,
int  n,
dcomplex alpha,
dcomplex x,
int  incx 
)