libflame  revision_anchor
Functions
bl1_scal.c File Reference

(r)

Functions

void bl1_sscal (int n, float *alpha, float *x, int incx)
 
void bl1_dscal (int n, double *alpha, double *x, int incx)
 
void bl1_csscal (int n, float *alpha, scomplex *x, int incx)
 
void bl1_cscal (int n, scomplex *alpha, scomplex *x, int incx)
 
void bl1_zdscal (int n, double *alpha, dcomplex *x, int incx)
 
void bl1_zscal (int n, dcomplex *alpha, dcomplex *x, int incx)
 

Function Documentation

◆ bl1_cscal()

void bl1_cscal ( int  n,
scomplex alpha,
scomplex x,
int  incx 
)

References cblas_cscal(), and F77_cscal().

Referenced by bl1_caxpysmt(), bl1_caxpysv(), bl1_cinvscalm(), bl1_cinvscalv(), bl1_cscalm(), bl1_cscalmr(), bl1_cscalv(), and FLA_SA_LU_unb().

53 {
54 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
55  cblas_cscal( n,
56  alpha,
57  x, incx );
58 #else
59  F77_cscal( &n,
60  alpha,
61  x, &incx );
62 #endif
63 }
void F77_cscal(int *n, scomplex *alpha, scomplex *y, int *incy)
void cblas_cscal(const int N, const void *alpha, void *X, const int incX)

◆ bl1_csscal()

void bl1_csscal ( int  n,
float *  alpha,
scomplex x,
int  incx 
)

References cblas_csscal(), and F77_csscal().

Referenced by bl1_csinvscalm(), bl1_csinvscalv(), bl1_csscalm(), bl1_csscalmr(), and bl1_csscalv().

40 {
41 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
42  cblas_csscal( n,
43  *alpha,
44  x, incx );
45 #else
46  F77_csscal( &n,
47  alpha,
48  x, &incx );
49 #endif
50 }
void F77_csscal(int *n, float *alpha, scomplex *y, int *incy)
void cblas_csscal(const int N, const float alpha, void *X, const int incX)

◆ bl1_dscal()

void bl1_dscal ( int  n,
double *  alpha,
double *  x,
int  incx 
)

References cblas_dscal(), and F77_dscal().

Referenced by bl1_daxpysmt(), bl1_daxpysv(), bl1_dinvscalm(), bl1_dinvscalv(), bl1_dscalm(), bl1_dscalmr(), bl1_dscalv(), bl1_zconjm(), bl1_zconjmr(), bl1_zconjv(), and FLA_SA_LU_unb().

27 {
28 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
29  cblas_dscal( n,
30  *alpha,
31  x, incx );
32 #else
33  F77_dscal( &n,
34  alpha,
35  x, &incx );
36 #endif
37 }
void cblas_dscal(const int N, const double alpha, double *X, const int incX)
void F77_dscal(int *n, double *alpha, double *y, int *incy)

◆ bl1_sscal()

void bl1_sscal ( int  n,
float *  alpha,
float *  x,
int  incx 
)

References cblas_sscal(), and F77_sscal().

Referenced by bl1_cconjm(), bl1_cconjmr(), bl1_cconjv(), bl1_saxpysmt(), bl1_saxpysv(), bl1_sinvscalm(), bl1_sinvscalv(), bl1_sscalm(), bl1_sscalmr(), bl1_sscalv(), and FLA_SA_LU_unb().

14 {
15 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
16  cblas_sscal( n,
17  *alpha,
18  x, incx );
19 #else
20  F77_sscal( &n,
21  alpha,
22  x, &incx );
23 #endif
24 }
void cblas_sscal(const int N, const float alpha, float *X, const int incX)
void F77_sscal(int *n, float *alpha, float *y, int *incy)

◆ bl1_zdscal()

void bl1_zdscal ( int  n,
double *  alpha,
dcomplex x,
int  incx 
)

References cblas_zdscal(), and F77_zdscal().

Referenced by bl1_zdinvscalm(), bl1_zdinvscalv(), bl1_zdscalm(), bl1_zdscalmr(), and bl1_zdscalv().

66 {
67 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
68  cblas_zdscal( n,
69  *alpha,
70  x, incx );
71 #else
72  F77_zdscal( &n,
73  alpha,
74  x, &incx );
75 #endif
76 }
void cblas_zdscal(const int N, const double alpha, void *X, const int incX)
void F77_zdscal(int *n, double *alpha, dcomplex *y, int *incy)

◆ bl1_zscal()

void bl1_zscal ( int  n,
dcomplex alpha,
dcomplex x,
int  incx 
)

References cblas_zscal(), and F77_zscal().

Referenced by bl1_zaxpysmt(), bl1_zaxpysv(), bl1_zinvscalm(), bl1_zinvscalv(), bl1_zscalm(), bl1_zscalmr(), bl1_zscalv(), and FLA_SA_LU_unb().

79 {
80 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
81  cblas_zscal( n,
82  alpha,
83  x, incx );
84 #else
85  F77_zscal( &n,
86  alpha,
87  x, &incx );
88 #endif
89 }
void F77_zscal(int *n, dcomplex *alpha, dcomplex *y, int *incy)
void cblas_zscal(const int N, const void *alpha, void *X, const int incX)