libflame revision_anchor
|
Functions | |
void | bli_sewscalv (char conj, int n, float *x, int incx, float *y, int incy) |
void | bli_dewscalv (char conj, int n, double *x, int incx, double *y, int incy) |
void | bli_cewscalv (char conj, int n, scomplex *x, int incx, scomplex *y, int incy) |
void | bli_zewscalv (char conj, int n, dcomplex *x, int incx, dcomplex *y, int incy) |
References bli_does_conj().
Referenced by bli_capdiagmv(), and bli_cewscalmt().
{ scomplex* chi; scomplex* psi; scomplex conjchi; int i; if ( bli_does_conj( conj ) ) { for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_ccopyconj( chi, &conjchi ); bli_cscals( &conjchi, psi ); } } else { for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_cscals( chi, psi ); } } }
void bli_dewscalv | ( | char | conj, |
int | n, | ||
double * | x, | ||
int | incx, | ||
double * | y, | ||
int | incy | ||
) |
Referenced by bli_dapdiagmv(), and bli_dewscalmt().
{ double* chi; double* psi; int i; for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_dscals( chi, psi ); } }
void bli_sewscalv | ( | char | conj, |
int | n, | ||
float * | x, | ||
int | incx, | ||
float * | y, | ||
int | incy | ||
) |
Referenced by bli_sapdiagmv(), and bli_sewscalmt().
{ float* chi; float* psi; int i; for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_sscals( chi, psi ); } }
References bli_does_conj().
Referenced by bli_zapdiagmv(), and bli_zewscalmt().
{ dcomplex* chi; dcomplex* psi; dcomplex conjchi; int i; if ( bli_does_conj( conj ) ) { for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_zcopyconj( chi, &conjchi ); bli_zscals( &conjchi, psi ); } } else { for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_zscals( chi, psi ); } } }