libflame  revision_anchor
Functions
bl1_ewscalv.c File Reference

(r)

Functions

void bl1_sewscalv (conj1_t conj, int n, float *x, int incx, float *y, int incy)
 
void bl1_dewscalv (conj1_t conj, int n, double *x, int incx, double *y, int incy)
 
void bl1_csewscalv (conj1_t conj, int n, float *x, int incx, scomplex *y, int incy)
 
void bl1_cewscalv (conj1_t conj, int n, scomplex *x, int incx, scomplex *y, int incy)
 
void bl1_zdewscalv (conj1_t conj, int n, double *x, int incx, dcomplex *y, int incy)
 
void bl1_zewscalv (conj1_t conj, int n, dcomplex *x, int incx, dcomplex *y, int incy)
 

Function Documentation

◆ bl1_cewscalv()

void bl1_cewscalv ( conj1_t  conj,
int  n,
scomplex x,
int  incx,
scomplex y,
int  incy 
)

References bl1_is_conj(), and i.

Referenced by bl1_capdiagmv(), and bl1_cewscalmt().

59 {
60  scomplex* chi;
61  scomplex* psi;
62  scomplex conjchi;
63  int i;
64 
65  if ( bl1_is_conj( conj ) )
66  {
67  for ( i = 0; i < n; ++i )
68  {
69  chi = x + i*incx;
70  psi = y + i*incy;
71 
72  bl1_ccopyconj( chi, &conjchi );
73  bl1_cscals( &conjchi, psi );
74  }
75  }
76  else
77  {
78  for ( i = 0; i < n; ++i )
79  {
80  chi = x + i*incx;
81  psi = y + i*incy;
82 
83  bl1_cscals( chi, psi );
84  }
85  }
86 }
int bl1_is_conj(conj1_t conj)
Definition: bl1_is.c:42
Definition: blis_type_defs.h:132
int i
Definition: bl1_axmyv2.c:145

◆ bl1_csewscalv()

void bl1_csewscalv ( conj1_t  conj,
int  n,
float *  x,
int  incx,
scomplex y,
int  incy 
)

References i.

Referenced by bl1_csapdiagmv(), and bl1_csewscalmt().

44 {
45  float* chi;
46  scomplex* psi;
47  int i;
48 
49  for ( i = 0; i < n; ++i )
50  {
51  chi = x + i*incx;
52  psi = y + i*incy;
53 
54  bl1_csscals( chi, psi );
55  }
56 }
Definition: blis_type_defs.h:132
int i
Definition: bl1_axmyv2.c:145

◆ bl1_dewscalv()

void bl1_dewscalv ( conj1_t  conj,
int  n,
double *  x,
int  incx,
double *  y,
int  incy 
)

References i.

Referenced by bl1_dapdiagmv(), and bl1_dewscalmt().

29 {
30  double* chi;
31  double* psi;
32  int i;
33 
34  for ( i = 0; i < n; ++i )
35  {
36  chi = x + i*incx;
37  psi = y + i*incy;
38 
39  bl1_dscals( chi, psi );
40  }
41 }
int i
Definition: bl1_axmyv2.c:145

◆ bl1_sewscalv()

void bl1_sewscalv ( conj1_t  conj,
int  n,
float *  x,
int  incx,
float *  y,
int  incy 
)

References i.

Referenced by bl1_sapdiagmv(), and bl1_sewscalmt().

14 {
15  float* chi;
16  float* psi;
17  int i;
18 
19  for ( i = 0; i < n; ++i )
20  {
21  chi = x + i*incx;
22  psi = y + i*incy;
23 
24  bl1_sscals( chi, psi );
25  }
26 }
int i
Definition: bl1_axmyv2.c:145

◆ bl1_zdewscalv()

void bl1_zdewscalv ( conj1_t  conj,
int  n,
double *  x,
int  incx,
dcomplex y,
int  incy 
)

References i.

Referenced by bl1_zdapdiagmv(), and bl1_zdewscalmt().

89 {
90  double* chi;
91  dcomplex* psi;
92  int i;
93 
94  for ( i = 0; i < n; ++i )
95  {
96  chi = x + i*incx;
97  psi = y + i*incy;
98 
99  bl1_zdscals( chi, psi );
100  }
101 }
int i
Definition: bl1_axmyv2.c:145
Definition: blis_type_defs.h:137

◆ bl1_zewscalv()

void bl1_zewscalv ( conj1_t  conj,
int  n,
dcomplex x,
int  incx,
dcomplex y,
int  incy 
)

References bl1_is_conj(), bl1_zscals(), and i.

Referenced by bl1_zapdiagmv(), and bl1_zewscalmt().

104 {
105  dcomplex* chi;
106  dcomplex* psi;
107  dcomplex conjchi;
108  int i;
109 
110  if ( bl1_is_conj( conj ) )
111  {
112  for ( i = 0; i < n; ++i )
113  {
114  chi = x + i*incx;
115  psi = y + i*incy;
116 
117  bl1_zcopyconj( chi, &conjchi );
118  bl1_zscals( &conjchi, psi );
119  }
120  }
121  else
122  {
123  for ( i = 0; i < n; ++i )
124  {
125  chi = x + i*incx;
126  psi = y + i*incy;
127 
128  bl1_zscals( chi, psi );
129  }
130  }
131 }
int bl1_is_conj(conj1_t conj)
Definition: bl1_is.c:42
int i
Definition: bl1_axmyv2.c:145
Definition: blis_type_defs.h:137
bl1_zscals(beta, rho_yz)