libflame  revision_anchor
Functions
bl1_copy.c File Reference

(r)

Functions

void bl1_scopy (int m, float *x, int incx, float *y, int incy)
 
void bl1_dcopy (int m, double *x, int incx, double *y, int incy)
 
void bl1_ccopy (int m, scomplex *x, int incx, scomplex *y, int incy)
 
void bl1_zcopy (int m, dcomplex *x, int incx, dcomplex *y, int incy)
 

Function Documentation

◆ bl1_ccopy()

void bl1_ccopy ( int  m,
scomplex x,
int  incx,
scomplex y,
int  incy 
)

References cblas_ccopy(), and F77_ccopy().

Referenced by bl1_ccopymr(), bl1_ccopymt(), bl1_ccopyv(), and FLA_SA_LU_unb().

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

◆ bl1_dcopy()

void bl1_dcopy ( int  m,
double *  x,
int  incx,
double *  y,
int  incy 
)

References cblas_dcopy(), and F77_dcopy().

Referenced by bl1_dcopymr(), bl1_dcopymt(), bl1_dcopyv(), FLA_Obj_extract_imag_part(), FLA_Obj_extract_real_part(), and FLA_SA_LU_unb().

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

◆ bl1_scopy()

void bl1_scopy ( int  m,
float *  x,
int  incx,
float *  y,
int  incy 
)

References cblas_scopy(), and F77_scopy().

Referenced by bl1_scopymr(), bl1_scopymt(), bl1_scopyv(), FLA_Obj_extract_imag_part(), FLA_Obj_extract_real_part(), and FLA_SA_LU_unb().

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

◆ bl1_zcopy()

void bl1_zcopy ( int  m,
dcomplex x,
int  incx,
dcomplex y,
int  incy 
)

References cblas_zcopy(), and F77_zcopy().

Referenced by bl1_zcopymr(), bl1_zcopymt(), bl1_zcopyv(), and FLA_SA_LU_unb().

53 {
54 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
55  cblas_zcopy( m,
56  x, incx,
57  y, incy );
58 #else
59  F77_zcopy( &m,
60  x, &incx,
61  y, &incy );
62 #endif
63 }
void F77_zcopy(int *n, dcomplex *x, int *incx, dcomplex *y, int *incy)
void cblas_zcopy(const int N, const void *X, const int incX, void *Y, const int incY)