libflame  revision_anchor
Functions
bl1_copyv.c File Reference

(r)

Functions

void bl1_icopyv (conj1_t conj, int m, int *x, int incx, int *y, int incy)
 
void bl1_scopyv (conj1_t conj, int m, float *x, int incx, float *y, int incy)
 
void bl1_dcopyv (conj1_t conj, int m, double *x, int incx, double *y, int incy)
 
void bl1_ccopyv (conj1_t conj, int m, scomplex *x, int incx, scomplex *y, int incy)
 
void bl1_zcopyv (conj1_t conj, int m, dcomplex *x, int incx, dcomplex *y, int incy)
 
void bl1_sdcopyv (conj1_t conj, int m, float *x, int incx, double *y, int incy)
 
void bl1_dscopyv (conj1_t conj, int m, double *x, int incx, float *y, int incy)
 
void bl1_sccopyv (conj1_t conj, int m, float *x, int incx, scomplex *y, int incy)
 
void bl1_cscopyv (conj1_t conj, int m, scomplex *x, int incx, float *y, int incy)
 
void bl1_szcopyv (conj1_t conj, int m, float *x, int incx, dcomplex *y, int incy)
 
void bl1_zscopyv (conj1_t conj, int m, dcomplex *x, int incx, float *y, int incy)
 
void bl1_dccopyv (conj1_t conj, int m, double *x, int incx, scomplex *y, int incy)
 
void bl1_cdcopyv (conj1_t conj, int m, scomplex *x, int incx, double *y, int incy)
 
void bl1_dzcopyv (conj1_t conj, int m, double *x, int incx, dcomplex *y, int incy)
 
void bl1_zdcopyv (conj1_t conj, int m, dcomplex *x, int incx, double *y, int incy)
 
void bl1_czcopyv (conj1_t conj, int m, scomplex *x, int incx, dcomplex *y, int incy)
 
void bl1_zccopyv (conj1_t conj, int m, dcomplex *x, int incx, scomplex *y, int incy)
 

Function Documentation

◆ bl1_ccopyv()

void bl1_ccopyv ( conj1_t  conj,
int  m,
scomplex x,
int  incx,
scomplex y,
int  incy 
)
50 {
51  // Return early if possible.
52  if ( bl1_zero_dim1( m ) ) return;
53 
54  bl1_ccopy( m,
55  x, incx,
56  y, incy );
57 
58  if ( bl1_is_conj( conj ) )
59  bl1_cconjv( m,
60  y, incy );
61 }
void bl1_cconjv(int m, scomplex *x, int incx)
Definition: bl1_conjv.c:23
void bl1_ccopy(int m, scomplex *x, int incx, scomplex *y, int incy)
Definition: bl1_copy.c:39
int bl1_zero_dim1(int m)
Definition: bl1_is.c:113
int bl1_is_conj(conj1_t conj)
Definition: bl1_is.c:42

References bl1_cconjv(), bl1_ccopy(), bl1_is_conj(), and bl1_zero_dim1().

Referenced by bl1_caxpymt(), bl1_caxpysmt(), bl1_caxpyv(), bl1_cccopymr(), bl1_cccopymrt(), bl1_cccopymt(), bl1_ccopymrt(), bl1_cgemv(), bl1_cger(), bl1_chemv(), bl1_cher(), bl1_cher2(), bl1_csymmize(), bl1_csymv_blas(), bl1_csyr2_blas(), bl1_csyr_blas(), bl1_ctrmv(), bl1_ctrmvsx(), bl1_ctrsv(), bl1_ctrsvsx(), FLA_Accum_T_UT_fc_opc_var1(), FLA_Accum_T_UT_fr_opc_var1(), FLA_Apply_H2_UT_l_opc_var1(), FLA_Apply_H2_UT_r_opc_var1(), FLA_Apply_HUD_UT_l_opc_var1(), FLA_Bidiag_UT_u_step_ofc_var2(), FLA_Bidiag_UT_u_step_ofc_var3(), FLA_Bidiag_UT_u_step_ofc_var4(), FLA_Bidiag_UT_u_step_opc_var1(), FLA_Bidiag_UT_u_step_opc_var2(), FLA_Bidiag_UT_u_step_opc_var3(), FLA_Bidiag_UT_u_step_opc_var4(), FLA_Bidiag_UT_u_step_opc_var5(), FLA_CAQR2_UT_opc_var1(), FLA_Eig_gest_il_opc_var3(), FLA_Eig_gest_iu_opc_var3(), FLA_Fused_UYx_ZVx_opc_var1(), FLA_Hess_UT_step_ofc_var3(), FLA_Hess_UT_step_opc_var3(), FLA_Hess_UT_step_opc_var4(), FLA_Hess_UT_step_opc_var5(), FLA_LQ_UT_opc_var2(), FLA_QR_UT_opc_var2(), FLA_Tridiag_UT_l_step_ofc_var2(), FLA_Tridiag_UT_l_step_opc_var2(), FLA_Tridiag_UT_l_step_opc_var3(), and FLA_Tridiag_UT_shift_U_l_opc().

◆ bl1_cdcopyv()

void bl1_cdcopyv ( conj1_t  conj,
int  m,
scomplex x,
int  incx,
double *  y,
int  incy 
)
237 {
238  scomplex* chi;
239  double* psi;
240  int i;
241 
242  // Return early if possible.
243  if ( bl1_zero_dim1( m ) ) return;
244 
245  // Initialize pointers.
246  chi = x;
247  psi = y;
248 
249  for ( i = 0; i < m; ++i )
250  {
251  *psi = chi->real;
252 
253  chi += incx;
254  psi += incy;
255  }
256 }
int i
Definition: bl1_axmyv2.c:145
Definition: blis_type_defs.h:133
float real
Definition: blis_type_defs.h:134

References bl1_zero_dim1(), i, and scomplex::real.

Referenced by bl1_cdcopymr(), bl1_cdcopymrt(), and bl1_cdcopymt().

◆ bl1_cscopyv()

void bl1_cscopyv ( conj1_t  conj,
int  m,
scomplex x,
int  incx,
float *  y,
int  incy 
)
147 {
148  scomplex* chi;
149  float* psi;
150  int i;
151 
152  // Return early if possible.
153  if ( bl1_zero_dim1( m ) ) return;
154 
155  // Initialize pointers.
156  chi = x;
157  psi = y;
158 
159  for ( i = 0; i < m; ++i )
160  {
161  *psi = chi->real;
162 
163  chi += incx;
164  psi += incy;
165  }
166 }

References bl1_zero_dim1(), i, and scomplex::real.

Referenced by bl1_cscopymr(), bl1_cscopymrt(), and bl1_cscopymt().

◆ bl1_czcopyv()

void bl1_czcopyv ( conj1_t  conj,
int  m,
scomplex x,
int  incx,
dcomplex y,
int  incy 
)
305 {
306  scomplex* chi;
307  dcomplex* psi;
308  int i;
309 
310  // Return early if possible.
311  if ( bl1_zero_dim1( m ) ) return;
312 
313  // Initialize pointers.
314  chi = x;
315  psi = y;
316 
317  for ( i = 0; i < m; ++i )
318  {
319  psi->real = chi->real;
320  psi->imag = chi->imag;
321 
322  chi += incx;
323  psi += incy;
324  }
325 
326  if ( bl1_is_conj( conj ) )
327  bl1_zconjv( m,
328  y, incy );
329 }
void bl1_zconjv(int m, dcomplex *x, int incx)
Definition: bl1_conjv.c:34
Definition: blis_type_defs.h:138
double real
Definition: blis_type_defs.h:139
double imag
Definition: blis_type_defs.h:139
float imag
Definition: blis_type_defs.h:134

References bl1_is_conj(), bl1_zconjv(), bl1_zero_dim1(), i, scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

Referenced by bl1_czcopymr(), bl1_czcopymrt(), and bl1_czcopymt().

◆ bl1_dccopyv()

void bl1_dccopyv ( conj1_t  conj,
int  m,
double *  x,
int  incx,
scomplex y,
int  incy 
)
215 {
216  double* chi;
217  scomplex* psi;
218  int i;
219 
220  // Return early if possible.
221  if ( bl1_zero_dim1( m ) ) return;
222 
223  // Initialize pointers.
224  chi = x;
225  psi = y;
226 
227  for ( i = 0; i < m; ++i )
228  {
229  psi->real = *chi;
230  psi->imag = 0.0F;
231 
232  chi += incx;
233  psi += incy;
234  }
235 }

References bl1_zero_dim1(), i, scomplex::imag, and scomplex::real.

Referenced by bl1_dccopymr(), bl1_dccopymrt(), and bl1_dccopymt().

◆ bl1_dcopyv()

void bl1_dcopyv ( conj1_t  conj,
int  m,
double *  x,
int  incx,
double *  y,
int  incy 
)

◆ bl1_dscopyv()

void bl1_dscopyv ( conj1_t  conj,
int  m,
double *  x,
int  incx,
float *  y,
int  incy 
)
102 {
103  double* chi;
104  float* psi;
105  int i;
106 
107  // Return early if possible.
108  if ( bl1_zero_dim1( m ) ) return;
109 
110  // Initialize pointers.
111  chi = x;
112  psi = y;
113 
114  for ( i = 0; i < m; ++i )
115  {
116  *psi = *chi;
117 
118  chi += incx;
119  psi += incy;
120  }
121 }

References bl1_zero_dim1(), and i.

Referenced by bl1_dscopymr(), bl1_dscopymrt(), and bl1_dscopymt().

◆ bl1_dzcopyv()

void bl1_dzcopyv ( conj1_t  conj,
int  m,
double *  x,
int  incx,
dcomplex y,
int  incy 
)
260 {
261  double* chi;
262  dcomplex* psi;
263  int i;
264 
265  // Return early if possible.
266  if ( bl1_zero_dim1( m ) ) return;
267 
268  // Initialize pointers.
269  chi = x;
270  psi = y;
271 
272  for ( i = 0; i < m; ++i )
273  {
274  psi->real = *chi;
275  psi->imag = 0.0;
276 
277  chi += incx;
278  psi += incy;
279  }
280 }

References bl1_zero_dim1(), i, dcomplex::imag, and dcomplex::real.

Referenced by bl1_dzcopymr(), bl1_dzcopymrt(), and bl1_dzcopymt().

◆ bl1_icopyv()

void bl1_icopyv ( conj1_t  conj,
int  m,
int *  x,
int  incx,
int *  y,
int  incy 
)
14 {
15  int* chi;
16  int* psi;
17  int i;
18 
19  // Return early if possible.
20  if ( bl1_zero_dim1( m ) ) return;
21 
22  // Initialize pointers.
23  chi = x;
24  psi = y;
25 
26  for ( i = 0; i < m; ++i )
27  {
28  *psi = *chi;
29 
30  chi += incx;
31  psi += incy;
32  }
33 }

References bl1_zero_dim1(), and i.

Referenced by bl1_icopymt().

◆ bl1_sccopyv()

void bl1_sccopyv ( conj1_t  conj,
int  m,
float *  x,
int  incx,
scomplex y,
int  incy 
)
125 {
126  float* chi;
127  scomplex* psi;
128  int i;
129 
130  // Return early if possible.
131  if ( bl1_zero_dim1( m ) ) return;
132 
133  // Initialize pointers.
134  chi = x;
135  psi = y;
136 
137  for ( i = 0; i < m; ++i )
138  {
139  psi->real = *chi;
140  psi->imag = 0.0F;
141 
142  chi += incx;
143  psi += incy;
144  }
145 }

References bl1_zero_dim1(), i, scomplex::imag, and scomplex::real.

Referenced by bl1_sccopymr(), bl1_sccopymrt(), and bl1_sccopymt().

◆ bl1_scopyv()

void bl1_scopyv ( conj1_t  conj,
int  m,
float *  x,
int  incx,
float *  y,
int  incy 
)

◆ bl1_sdcopyv()

void bl1_sdcopyv ( conj1_t  conj,
int  m,
float *  x,
int  incx,
double *  y,
int  incy 
)
81 {
82  float* chi;
83  double* psi;
84  int i;
85 
86  // Return early if possible.
87  if ( bl1_zero_dim1( m ) ) return;
88 
89  // Initialize pointers.
90  chi = x;
91  psi = y;
92 
93  for ( i = 0; i < m; ++i )
94  {
95  *psi = *chi;
96 
97  chi += incx;
98  psi += incy;
99  }
100 }

References bl1_zero_dim1(), and i.

Referenced by bl1_sdcopymr(), bl1_sdcopymrt(), and bl1_sdcopymt().

◆ bl1_szcopyv()

void bl1_szcopyv ( conj1_t  conj,
int  m,
float *  x,
int  incx,
dcomplex y,
int  incy 
)
170 {
171  float* chi;
172  dcomplex* psi;
173  int i;
174 
175  // Return early if possible.
176  if ( bl1_zero_dim1( m ) ) return;
177 
178  // Initialize pointers.
179  chi = x;
180  psi = y;
181 
182  for ( i = 0; i < m; ++i )
183  {
184  psi->real = *chi;
185  psi->imag = 0.0;
186 
187  chi += incx;
188  psi += incy;
189  }
190 }

References bl1_zero_dim1(), i, dcomplex::imag, and dcomplex::real.

Referenced by bl1_szcopymr(), bl1_szcopymrt(), and bl1_szcopymt().

◆ bl1_zccopyv()

void bl1_zccopyv ( conj1_t  conj,
int  m,
dcomplex x,
int  incx,
scomplex y,
int  incy 
)
331 {
332  dcomplex* chi;
333  scomplex* psi;
334  int i;
335 
336  // Return early if possible.
337  if ( bl1_zero_dim1( m ) ) return;
338 
339  // Initialize pointers.
340  chi = x;
341  psi = y;
342 
343  for ( i = 0; i < m; ++i )
344  {
345  psi->real = chi->real;
346  psi->imag = chi->imag;
347 
348  chi += incx;
349  psi += incy;
350  }
351 
352  if ( bl1_is_conj( conj ) )
353  bl1_cconjv( m,
354  y, incy );
355 }

References bl1_cconjv(), bl1_is_conj(), bl1_zero_dim1(), i, scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

Referenced by bl1_zccopymr(), bl1_zccopymrt(), and bl1_zccopymt().

◆ bl1_zcopyv()

void bl1_zcopyv ( conj1_t  conj,
int  m,
dcomplex x,
int  incx,
dcomplex y,
int  incy 
)
64 {
65  // Return early if possible.
66  if ( bl1_zero_dim1( m ) ) return;
67 
68  bl1_zcopy( m,
69  x, incx,
70  y, incy );
71 
72  if ( bl1_is_conj( conj ) )
73  bl1_zconjv( m,
74  y, incy );
75 }
void bl1_zcopy(int m, dcomplex *x, int incx, dcomplex *y, int incy)
Definition: bl1_copy.c:52

References bl1_is_conj(), bl1_zconjv(), bl1_zcopy(), and bl1_zero_dim1().

Referenced by bl1_zaxpymt(), bl1_zaxpysmt(), bl1_zaxpyv(), bl1_zcopymrt(), bl1_zgemv(), bl1_zger(), bl1_zhemv(), bl1_zher(), bl1_zher2(), bl1_zsymmize(), bl1_zsymv_blas(), bl1_zsyr2_blas(), bl1_zsyr_blas(), bl1_ztrmv(), bl1_ztrmvsx(), bl1_ztrsv(), bl1_ztrsvsx(), bl1_zzcopymr(), bl1_zzcopymrt(), bl1_zzcopymt(), FLA_Accum_T_UT_fc_opz_var1(), FLA_Accum_T_UT_fr_opz_var1(), FLA_Apply_H2_UT_l_opz_var1(), FLA_Apply_H2_UT_r_opz_var1(), FLA_Apply_HUD_UT_l_opz_var1(), FLA_Bidiag_UT_u_step_ofz_var2(), FLA_Bidiag_UT_u_step_ofz_var3(), FLA_Bidiag_UT_u_step_ofz_var4(), FLA_Bidiag_UT_u_step_opz_var1(), FLA_Bidiag_UT_u_step_opz_var2(), FLA_Bidiag_UT_u_step_opz_var3(), FLA_Bidiag_UT_u_step_opz_var4(), FLA_Bidiag_UT_u_step_opz_var5(), FLA_CAQR2_UT_opz_var1(), FLA_Eig_gest_il_opz_var3(), FLA_Eig_gest_iu_opz_var3(), FLA_Fused_UYx_ZVx_opz_var1(), FLA_Hess_UT_step_ofz_var3(), FLA_Hess_UT_step_opz_var3(), FLA_Hess_UT_step_opz_var4(), FLA_Hess_UT_step_opz_var5(), FLA_LQ_UT_opz_var2(), FLA_QR_UT_opz_var2(), FLA_Tridiag_UT_l_step_ofz_var2(), FLA_Tridiag_UT_l_step_opz_var2(), FLA_Tridiag_UT_l_step_opz_var3(), and FLA_Tridiag_UT_shift_U_l_opz().

◆ bl1_zdcopyv()

void bl1_zdcopyv ( conj1_t  conj,
int  m,
dcomplex x,
int  incx,
double *  y,
int  incy 
)
282 {
283  dcomplex* chi;
284  double* psi;
285  int i;
286 
287  // Return early if possible.
288  if ( bl1_zero_dim1( m ) ) return;
289 
290  // Initialize pointers.
291  chi = x;
292  psi = y;
293 
294  for ( i = 0; i < m; ++i )
295  {
296  *psi = chi->real;
297 
298  chi += incx;
299  psi += incy;
300  }
301 }

References bl1_zero_dim1(), i, and dcomplex::real.

Referenced by bl1_zdcopymr(), bl1_zdcopymrt(), and bl1_zdcopymt().

◆ bl1_zscopyv()

void bl1_zscopyv ( conj1_t  conj,
int  m,
dcomplex x,
int  incx,
float *  y,
int  incy 
)
192 {
193  dcomplex* chi;
194  float* psi;
195  int i;
196 
197  // Return early if possible.
198  if ( bl1_zero_dim1( m ) ) return;
199 
200  // Initialize pointers.
201  chi = x;
202  psi = y;
203 
204  for ( i = 0; i < m; ++i )
205  {
206  *psi = chi->real;
207 
208  chi += incx;
209  psi += incy;
210  }
211 }

References bl1_zero_dim1(), i, and dcomplex::real.

Referenced by bl1_zscopymr(), bl1_zscopymrt(), and bl1_zscopymt().