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
	)

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_cswap( n,
                 x, incx, 
                 y, incy );
#else
    F77_cswap( &n,
               x, &incx, 
               y, &incy );
#endif
}

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
	)

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_dswap( n,
                 x, incx, 
                 y, incy );
#else
    F77_dswap( &n,
               x, &incx, 
               y, &incy );
#endif
}

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
	)

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_sswap( n,
                 x, incx, 
                 y, incy );
#else
    F77_sswap( &n,
               x, &incx, 
               y, &incy );
#endif
}

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
	)

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_zswap( n,
                 x, incx, 
                 y, incy );
#else
    F77_zswap( &n,
               x, &incx, 
               y, &incy );
#endif
}

References cblas_zswap(), and F77_zswap().

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