libflame  revision_anchor
Functions
bl1_scalv.c File Reference

(r)

Functions

void bl1_sscalv (conj1_t conj, int n, float *alpha, float *x, int incx)
 
void bl1_dscalv (conj1_t conj, int n, double *alpha, double *x, int incx)
 
void bl1_csscalv (conj1_t conj, int n, float *alpha, scomplex *x, int incx)
 
void bl1_cscalv (conj1_t conj, int n, scomplex *alpha, scomplex *x, int incx)
 
void bl1_zdscalv (conj1_t conj, int n, double *alpha, dcomplex *x, int incx)
 
void bl1_zscalv (conj1_t conj, int n, dcomplex *alpha, dcomplex *x, int incx)
 

Function Documentation

◆ bl1_cscalv()

void bl1_cscalv ( conj1_t  conj,
int  n,
scomplex alpha,
scomplex x,
int  incx 
)

References bl1_cscal(), and bl1_zero_dim1().

Referenced by bl1_capdiagmv(), bl1_cgemv(), bl1_chemv(), bl1_ctrmvsx(), bl1_ctrsvsx(), FLA_Eig_gest_il_opc_var3(), FLA_Eig_gest_iu_opc_var3(), FLA_Eig_gest_nl_opc_var1(), FLA_Eig_gest_nl_opc_var2(), FLA_Eig_gest_nl_opc_var4(), FLA_Eig_gest_nl_opc_var5(), FLA_Eig_gest_nu_opc_var1(), FLA_Eig_gest_nu_opc_var2(), FLA_Eig_gest_nu_opc_var4(), FLA_Eig_gest_nu_opc_var5(), FLA_Hess_UT_step_ofc_var2(), FLA_Hess_UT_step_ofc_var3(), FLA_Hess_UT_step_ofc_var4(), FLA_Hess_UT_step_opc_var2(), FLA_Hess_UT_step_opc_var3(), FLA_Hess_UT_step_opc_var4(), FLA_QR_UT_form_Q_opc_var1(), FLA_Tridiag_UT_l_step_ofc_var2(), FLA_Tridiag_UT_l_step_ofc_var3(), FLA_Tridiag_UT_l_step_opc_var1(), FLA_Tridiag_UT_l_step_opc_var2(), FLA_Tridiag_UT_l_step_opc_var3(), FLA_Trinv_ln_opc_var4(), FLA_Trinv_lu_opc_var1(), FLA_Trinv_lu_opc_var2(), FLA_Trinv_lu_opc_var3(), FLA_Trinv_lu_opc_var4(), FLA_Trinv_un_opc_var4(), FLA_Trinv_uu_opc_var1(), FLA_Trinv_uu_opc_var2(), FLA_Trinv_uu_opc_var3(), FLA_Trinv_uu_opc_var4(), FLA_Ttmm_l_opc_var1(), FLA_Ttmm_l_opc_var2(), FLA_Ttmm_u_opc_var1(), and FLA_Ttmm_u_opc_var2().

47 {
48  scomplex alpha_conj;
49 
50  // Return early if possible.
51  if ( bl1_zero_dim1( n ) ) return;
52  if ( bl1_ceq1( alpha ) ) return;
53 
54  bl1_ccopys( conj, alpha, &alpha_conj );
55 
56  bl1_cscal( n,
57  &alpha_conj,
58  x, incx );
59 }
int bl1_zero_dim1(int m)
Definition: bl1_is.c:113
Definition: blis_type_defs.h:132
void bl1_cscal(int n, scomplex *alpha, scomplex *x, int incx)
Definition: bl1_scal.c:52

◆ bl1_csscalv()

void bl1_csscalv ( conj1_t  conj,
int  n,
float *  alpha,
scomplex x,
int  incx 
)

References bl1_csscal(), and bl1_zero_dim1().

Referenced by bl1_csapdiagmv(), FLA_Bsvd_ext_opc_var1(), and FLA_Bsvd_v_opc_var1().

36 {
37  // Return early if possible.
38  if ( bl1_zero_dim1( n ) ) return;
39  if ( bl1_seq1( alpha ) ) return;
40 
41  bl1_csscal( n,
42  alpha,
43  x, incx );
44 }
int bl1_zero_dim1(int m)
Definition: bl1_is.c:113
void bl1_csscal(int n, float *alpha, scomplex *x, int incx)
Definition: bl1_scal.c:39

◆ bl1_dscalv()

void bl1_dscalv ( conj1_t  conj,
int  n,
double *  alpha,
double *  x,
int  incx 
)

References bl1_dscal(), and bl1_zero_dim1().

Referenced by bl1_dapdiagmv(), bl1_dgemv(), bl1_dtrmvsx(), bl1_dtrsvsx(), FLA_Bsvd_ext_opd_var1(), FLA_Bsvd_v_opd_var1(), FLA_Bsvd_v_opd_var2(), FLA_Eig_gest_il_opd_var3(), FLA_Eig_gest_iu_opd_var3(), FLA_Eig_gest_nl_opd_var1(), FLA_Eig_gest_nl_opd_var2(), FLA_Eig_gest_nl_opd_var4(), FLA_Eig_gest_nl_opd_var5(), FLA_Eig_gest_nu_opd_var1(), FLA_Eig_gest_nu_opd_var2(), FLA_Eig_gest_nu_opd_var4(), FLA_Eig_gest_nu_opd_var5(), FLA_Hess_UT_step_ofd_var2(), FLA_Hess_UT_step_ofd_var3(), FLA_Hess_UT_step_ofd_var4(), FLA_Hess_UT_step_opd_var2(), FLA_Hess_UT_step_opd_var3(), FLA_Hess_UT_step_opd_var4(), FLA_QR_UT_form_Q_opd_var1(), FLA_Tridiag_UT_l_step_ofd_var2(), FLA_Tridiag_UT_l_step_ofd_var3(), FLA_Tridiag_UT_l_step_opd_var1(), FLA_Tridiag_UT_l_step_opd_var2(), FLA_Tridiag_UT_l_step_opd_var3(), FLA_Trinv_ln_opd_var4(), FLA_Trinv_lu_opd_var1(), FLA_Trinv_lu_opd_var2(), FLA_Trinv_lu_opd_var3(), FLA_Trinv_lu_opd_var4(), FLA_Trinv_un_opd_var4(), FLA_Trinv_uu_opd_var1(), FLA_Trinv_uu_opd_var2(), FLA_Trinv_uu_opd_var3(), FLA_Trinv_uu_opd_var4(), FLA_Ttmm_l_opd_var1(), FLA_Ttmm_l_opd_var2(), FLA_Ttmm_u_opd_var1(), and FLA_Ttmm_u_opd_var2().

25 {
26  // Return early if possible.
27  if ( bl1_zero_dim1( n ) ) return;
28  if ( bl1_deq1( alpha ) ) return;
29 
30  bl1_dscal( n,
31  alpha,
32  x, incx );
33 }
int bl1_zero_dim1(int m)
Definition: bl1_is.c:113
void bl1_dscal(int n, double *alpha, double *x, int incx)
Definition: bl1_scal.c:26

◆ bl1_sscalv()

void bl1_sscalv ( conj1_t  conj,
int  n,
float *  alpha,
float *  x,
int  incx 
)

◆ bl1_zdscalv()

void bl1_zdscalv ( conj1_t  conj,
int  n,
double *  alpha,
dcomplex x,
int  incx 
)

References bl1_zdscal(), and bl1_zero_dim1().

Referenced by bl1_zdapdiagmv(), FLA_Bsvd_ext_opz_var1(), FLA_Bsvd_v_opz_var1(), and FLA_Bsvd_v_opz_var2().

62 {
63  // Return early if possible.
64  if ( bl1_zero_dim1( n ) ) return;
65  if ( bl1_deq1( alpha ) ) return;
66 
67  bl1_zdscal( n,
68  alpha,
69  x, incx );
70 }
void bl1_zdscal(int n, double *alpha, dcomplex *x, int incx)
Definition: bl1_scal.c:65
int bl1_zero_dim1(int m)
Definition: bl1_is.c:113

◆ bl1_zscalv()

void bl1_zscalv ( conj1_t  conj,
int  n,
dcomplex alpha,
dcomplex x,
int  incx 
)

References bl1_zero_dim1(), and bl1_zscal().

Referenced by bl1_zapdiagmv(), bl1_zgemv(), bl1_zhemv(), bl1_ztrmvsx(), bl1_ztrsvsx(), FLA_Eig_gest_il_opz_var3(), FLA_Eig_gest_iu_opz_var3(), FLA_Eig_gest_nl_opz_var1(), FLA_Eig_gest_nl_opz_var2(), FLA_Eig_gest_nl_opz_var4(), FLA_Eig_gest_nl_opz_var5(), FLA_Eig_gest_nu_opz_var1(), FLA_Eig_gest_nu_opz_var2(), FLA_Eig_gest_nu_opz_var4(), FLA_Eig_gest_nu_opz_var5(), FLA_Hess_UT_step_ofz_var2(), FLA_Hess_UT_step_ofz_var3(), FLA_Hess_UT_step_ofz_var4(), FLA_Hess_UT_step_opz_var2(), FLA_Hess_UT_step_opz_var3(), FLA_Hess_UT_step_opz_var4(), FLA_QR_UT_form_Q_opz_var1(), FLA_Tridiag_UT_l_step_ofz_var2(), FLA_Tridiag_UT_l_step_ofz_var3(), FLA_Tridiag_UT_l_step_opz_var1(), FLA_Tridiag_UT_l_step_opz_var2(), FLA_Tridiag_UT_l_step_opz_var3(), FLA_Trinv_ln_opz_var4(), FLA_Trinv_lu_opz_var1(), FLA_Trinv_lu_opz_var2(), FLA_Trinv_lu_opz_var3(), FLA_Trinv_lu_opz_var4(), FLA_Trinv_un_opz_var4(), FLA_Trinv_uu_opz_var1(), FLA_Trinv_uu_opz_var2(), FLA_Trinv_uu_opz_var3(), FLA_Trinv_uu_opz_var4(), FLA_Ttmm_l_opz_var1(), FLA_Ttmm_l_opz_var2(), FLA_Ttmm_u_opz_var1(), and FLA_Ttmm_u_opz_var2().

73 {
74  dcomplex alpha_conj;
75 
76  // Return early if possible.
77  if ( bl1_zero_dim1( n ) ) return;
78  if ( bl1_zeq1( alpha ) ) return;
79 
80  bl1_zcopys( conj, alpha, &alpha_conj );
81 
82  bl1_zscal( n,
83  &alpha_conj,
84  x, incx );
85 }
int bl1_zero_dim1(int m)
Definition: bl1_is.c:113
void bl1_zscal(int n, dcomplex *alpha, dcomplex *x, int incx)
Definition: bl1_scal.c:78
Definition: blis_type_defs.h:137