libflame
revision_anchor
|
Functions | |
void | bli_sewinvscalv (conj_t conj, int n, float *x, int incx, float *y, int incy) |
void | bli_dewinvscalv (conj_t conj, int n, double *x, int incx, double *y, int incy) |
void | bli_csewinvscalv (conj_t conj, int n, float *x, int incx, scomplex *y, int incy) |
void | bli_cewinvscalv (conj_t conj, int n, scomplex *x, int incx, scomplex *y, int incy) |
void | bli_zdewinvscalv (conj_t conj, int n, double *x, int incx, dcomplex *y, int incy) |
void | bli_zewinvscalv (conj_t conj, int n, dcomplex *x, int incx, dcomplex *y, int incy) |
void bli_cewinvscalv | ( | conj_t | conj, |
int | n, | ||
scomplex * | x, | ||
int | incx, | ||
scomplex * | y, | ||
int | incy | ||
) |
References bli_is_conj().
Referenced by bli_cewinvscalmt().
{ scomplex* chi; scomplex* psi; scomplex conjchi; int i; if ( bli_is_conj( conj ) ) { for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_ccopyconj( chi, &conjchi ); bli_cinvscals( &conjchi, psi ); } } else { for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_cinvscals( chi, psi ); } } }
void bli_csewinvscalv | ( | conj_t | conj, |
int | n, | ||
float * | x, | ||
int | incx, | ||
scomplex * | y, | ||
int | incy | ||
) |
Referenced by bli_csewinvscalmt().
{ float* chi; scomplex* psi; int i; for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_csinvscals( chi, psi ); } }
void bli_dewinvscalv | ( | conj_t | conj, |
int | n, | ||
double * | x, | ||
int | incx, | ||
double * | y, | ||
int | incy | ||
) |
Referenced by bli_dewinvscalmt().
{ double* chi; double* psi; int i; for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_dinvscals( chi, psi ); } }
void bli_sewinvscalv | ( | conj_t | conj, |
int | n, | ||
float * | x, | ||
int | incx, | ||
float * | y, | ||
int | incy | ||
) |
Referenced by bli_sewinvscalmt().
{ float* chi; float* psi; int i; for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_sinvscals( chi, psi ); } }
void bli_zdewinvscalv | ( | conj_t | conj, |
int | n, | ||
double * | x, | ||
int | incx, | ||
dcomplex * | y, | ||
int | incy | ||
) |
Referenced by bli_zdewinvscalmt().
{ double* chi; dcomplex* psi; int i; for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_zdinvscals( chi, psi ); } }
void bli_zewinvscalv | ( | conj_t | conj, |
int | n, | ||
dcomplex * | x, | ||
int | incx, | ||
dcomplex * | y, | ||
int | incy | ||
) |
References bli_is_conj().
Referenced by bli_zewinvscalmt().
{ dcomplex* chi; dcomplex* psi; dcomplex conjchi; int i; if ( bli_is_conj( conj ) ) { for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_zcopyconj( chi, &conjchi ); bli_zinvscals( &conjchi, psi ); } } else { for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_zinvscals( chi, psi ); } } }