libflame  revision_anchor
Functions
bl1_swap.c File Reference

(r)

Functions

void bl1_sswap (int n, float *x, int incx, float *y, int incy)
 
void bl1_dswap (int n, double *x, int incx, double *y, int incy)
 
void bl1_cswap (int n, scomplex *x, int incx, scomplex *y, int incy)
 
void bl1_zswap (int n, dcomplex *x, int incx, dcomplex *y, int incy)
 

Function Documentation

◆ bl1_cswap()

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

References cblas_cswap(), and F77_cswap().

Referenced by bl1_cswapmt(), bl1_cswapv(), FLA_SA_Apply_pivots(), and FLA_SA_LU_unb().

◆ bl1_dswap()

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

References cblas_dswap(), and F77_dswap().

Referenced by bl1_dswapmt(), bl1_dswapv(), FLA_SA_Apply_pivots(), and FLA_SA_LU_unb().

◆ bl1_sswap()

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

References cblas_sswap(), and F77_sswap().

Referenced by bl1_sswapmt(), bl1_sswapv(), FLA_SA_Apply_pivots(), and FLA_SA_LU_unb().

◆ bl1_zswap()

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

References cblas_zswap(), and F77_zswap().

Referenced by bl1_zswapmt(), bl1_zswapv(), FLA_SA_Apply_pivots(), and FLA_SA_LU_unb().