libflame  revision_anchor
Functions
bl1_ewinvscalv.c File Reference

(r)

Functions

void bl1_sewinvscalv (conj1_t conj, int n, float *x, int incx, float *y, int incy)
 
void bl1_dewinvscalv (conj1_t conj, int n, double *x, int incx, double *y, int incy)
 
void bl1_csewinvscalv (conj1_t conj, int n, float *x, int incx, scomplex *y, int incy)
 
void bl1_cewinvscalv (conj1_t conj, int n, scomplex *x, int incx, scomplex *y, int incy)
 
void bl1_zdewinvscalv (conj1_t conj, int n, double *x, int incx, dcomplex *y, int incy)
 
void bl1_zewinvscalv (conj1_t conj, int n, dcomplex *x, int incx, dcomplex *y, int incy)
 

Function Documentation

◆ bl1_cewinvscalv()

void bl1_cewinvscalv ( conj1_t  conj,
int  n,
scomplex x,
int  incx,
scomplex y,
int  incy 
)
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_cinvscals( &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_cinvscals( chi, psi );
84  }
85  }
86 }
int i
Definition: bl1_axmyv2.c:145
int bl1_is_conj(conj1_t conj)
Definition: bl1_is.c:42
Definition: blis_type_defs.h:133

References bl1_is_conj(), and i.

Referenced by bl1_cewinvscalmt().

◆ bl1_csewinvscalv()

void bl1_csewinvscalv ( conj1_t  conj,
int  n,
float *  x,
int  incx,
scomplex y,
int  incy 
)
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_csinvscals( chi, psi );
55  }
56 }

References i.

Referenced by bl1_csewinvscalmt().

◆ bl1_dewinvscalv()

void bl1_dewinvscalv ( conj1_t  conj,
int  n,
double *  x,
int  incx,
double *  y,
int  incy 
)
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_dinvscals( chi, psi );
40  }
41 }

References i.

Referenced by bl1_dewinvscalmt().

◆ bl1_sewinvscalv()

void bl1_sewinvscalv ( conj1_t  conj,
int  n,
float *  x,
int  incx,
float *  y,
int  incy 
)
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_sinvscals( chi, psi );
25  }
26 }

References i.

Referenced by bl1_sewinvscalmt().

◆ bl1_zdewinvscalv()

void bl1_zdewinvscalv ( conj1_t  conj,
int  n,
double *  x,
int  incx,
dcomplex y,
int  incy 
)
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_zdinvscals( chi, psi );
100  }
101 }
Definition: blis_type_defs.h:138

References i.

Referenced by bl1_zdewinvscalmt().

◆ bl1_zewinvscalv()

void bl1_zewinvscalv ( conj1_t  conj,
int  n,
dcomplex x,
int  incx,
dcomplex y,
int  incy 
)
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_zinvscals( &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_zinvscals( chi, psi );
129  }
130  }
131 }

References bl1_is_conj(), and i.

Referenced by bl1_zewinvscalmt().