libflame  revision_anchor
Functions
bl1_dots.c File Reference

(r)

Functions

void bl1_sdots (conj1_t conj, int n, float *alpha, float *x, int incx, float *y, int incy, float *beta, float *rho)
 
void bl1_ddots (conj1_t conj, int n, double *alpha, double *x, int incx, double *y, int incy, double *beta, double *rho)
 
void bl1_cdots (conj1_t conj, int n, scomplex *alpha, scomplex *x, int incx, scomplex *y, int incy, scomplex *beta, scomplex *rho)
 
void bl1_zdots (conj1_t conj, int n, dcomplex *alpha, dcomplex *x, int incx, dcomplex *y, int incy, dcomplex *beta, dcomplex *rho)
 

Function Documentation

◆ bl1_cdots()

void bl1_cdots ( conj1_t  conj,
int  n,
scomplex alpha,
scomplex x,
int  incx,
scomplex y,
int  incy,
scomplex beta,
scomplex rho 
)

References bl1_cdot(), scomplex::imag, scomplex::real, and rho.

Referenced by FLA_Chol_l_opc_var1(), FLA_Chol_l_opc_var2(), FLA_Chol_u_opc_var1(), FLA_Chol_u_opc_var2(), FLA_Dotcs_external(), FLA_Dots_external(), FLA_Fused_Ahx_Axpy_Ax_opc_var1(), FLA_Hess_UT_step_opc_var5(), FLA_LU_nopiv_opc_var1(), FLA_LU_nopiv_opc_var2(), FLA_LU_nopiv_opc_var3(), FLA_LU_nopiv_opc_var4(), FLA_LU_piv_opc_var3(), FLA_LU_piv_opc_var4(), FLA_Ttmm_l_opc_var2(), FLA_Ttmm_l_opc_var3(), FLA_Ttmm_u_opc_var2(), and FLA_Ttmm_u_opc_var3().

40 {
41  scomplex rho_orig = *rho;
42  scomplex dot_prod;
43 
44  bl1_cdot( conj,
45  n,
46  x, incx,
47  y, incy,
48  &dot_prod );
49 
50  rho->real = beta->real * rho_orig.real - beta->imag * rho_orig.imag +
51  alpha->real * dot_prod.real - alpha->imag * dot_prod.imag;
52  rho->imag = beta->real * rho_orig.imag + beta->imag * rho_orig.real +
53  alpha->real * dot_prod.imag + alpha->imag * dot_prod.real;
54 }
float real
Definition: blis_type_defs.h:134
* rho
Definition: bl1_axpyv2bdotaxpy.c:322
void bl1_cdot(conj1_t conj, int n, scomplex *x, int incx, scomplex *y, int incy, scomplex *rho)
Definition: bl1_dot.c:39
Definition: blis_type_defs.h:132
float imag
Definition: blis_type_defs.h:134

◆ bl1_ddots()

void bl1_ddots ( conj1_t  conj,
int  n,
double *  alpha,
double *  x,
int  incx,
double *  y,
int  incy,
double *  beta,
double *  rho 
)

References bl1_ddot().

Referenced by FLA_Chol_l_opd_var1(), FLA_Chol_l_opd_var2(), FLA_Chol_u_opd_var1(), FLA_Chol_u_opd_var2(), FLA_Dotcs_external(), FLA_Dots_external(), FLA_Hess_UT_step_opd_var5(), FLA_LU_nopiv_opd_var1(), FLA_LU_nopiv_opd_var2(), FLA_LU_nopiv_opd_var3(), FLA_LU_nopiv_opd_var4(), FLA_LU_piv_opd_var3(), FLA_LU_piv_opd_var4(), FLA_Ttmm_l_opd_var2(), FLA_Ttmm_l_opd_var3(), FLA_Ttmm_u_opd_var2(), and FLA_Ttmm_u_opd_var3().

27 {
28  double dot_prod;
29 
30  bl1_ddot( conj,
31  n,
32  x, incx,
33  y, incy,
34  &dot_prod );
35 
36  *rho = (*beta) * (*rho) + (*alpha) * dot_prod;
37 }
* rho
Definition: bl1_axpyv2bdotaxpy.c:322
void bl1_ddot(conj1_t conj, int n, double *x, int incx, double *y, int incy, double *rho)
Definition: bl1_dot.c:26

◆ bl1_sdots()

void bl1_sdots ( conj1_t  conj,
int  n,
float *  alpha,
float *  x,
int  incx,
float *  y,
int  incy,
float *  beta,
float *  rho 
)

References bl1_sdot().

Referenced by FLA_Chol_l_ops_var1(), FLA_Chol_l_ops_var2(), FLA_Chol_u_ops_var1(), FLA_Chol_u_ops_var2(), FLA_Dotcs_external(), FLA_Dots_external(), FLA_Fused_Ahx_Axpy_Ax_ops_var1(), FLA_Hess_UT_step_ops_var5(), FLA_LU_nopiv_ops_var1(), FLA_LU_nopiv_ops_var2(), FLA_LU_nopiv_ops_var3(), FLA_LU_nopiv_ops_var4(), FLA_LU_piv_ops_var3(), FLA_LU_piv_ops_var4(), FLA_Ttmm_l_ops_var2(), FLA_Ttmm_l_ops_var3(), FLA_Ttmm_u_ops_var2(), and FLA_Ttmm_u_ops_var3().

14 {
15  float dot_prod;
16 
17  bl1_sdot( conj,
18  n,
19  x, incx,
20  y, incy,
21  &dot_prod );
22 
23  *rho = (*beta) * (*rho) + (*alpha) * dot_prod;
24 }
* rho
Definition: bl1_axpyv2bdotaxpy.c:322
void bl1_sdot(conj1_t conj, int n, float *x, int incx, float *y, int incy, float *rho)
Definition: bl1_dot.c:13

◆ bl1_zdots()

void bl1_zdots ( conj1_t  conj,
int  n,
dcomplex alpha,
dcomplex x,
int  incx,
dcomplex y,
int  incy,
dcomplex beta,
dcomplex rho 
)

References bl1_zdot(), dcomplex::imag, dcomplex::real, and rho.

Referenced by FLA_Chol_l_opz_var1(), FLA_Chol_l_opz_var2(), FLA_Chol_u_opz_var1(), FLA_Chol_u_opz_var2(), FLA_Dotcs_external(), FLA_Dots_external(), FLA_Hess_UT_step_opz_var5(), FLA_LU_nopiv_opz_var1(), FLA_LU_nopiv_opz_var2(), FLA_LU_nopiv_opz_var3(), FLA_LU_nopiv_opz_var4(), FLA_LU_piv_opz_var3(), FLA_LU_piv_opz_var4(), FLA_Ttmm_l_opz_var2(), FLA_Ttmm_l_opz_var3(), FLA_Ttmm_u_opz_var2(), and FLA_Ttmm_u_opz_var3().

57 {
58  dcomplex rho_orig = *rho;
59  dcomplex dot_prod;
60 
61  bl1_zdot( conj,
62  n,
63  x, incx,
64  y, incy,
65  &dot_prod );
66 
67  rho->real = beta->real * rho_orig.real - beta->imag * rho_orig.imag +
68  alpha->real * dot_prod.real - alpha->imag * dot_prod.imag;
69  rho->imag = beta->real * rho_orig.imag + beta->imag * rho_orig.real +
70  alpha->real * dot_prod.imag + alpha->imag * dot_prod.real;
71 }
* rho
Definition: bl1_axpyv2bdotaxpy.c:322
double imag
Definition: blis_type_defs.h:139
void bl1_zdot(conj1_t conj, int n, dcomplex *x, int incx, dcomplex *y, int incy, dcomplex *rho)
Definition: bl1_dot.c:65
double real
Definition: blis_type_defs.h:139
Definition: blis_type_defs.h:137