bl1_copy.c File Reference

(r12600)

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

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().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_ccopy( m,
                 x, incx, 
                 y, incy );
#else
    F77_ccopy( &m,
               x, &incx, 
               y, &incy );
#endif
}

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().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_dcopy( m,
                 x, incx, 
                 y, incy );
#else
    F77_dcopy( &m,
               x, &incx, 
               y, &incy );
#endif
}

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().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_scopy( m,
                 x, incx, 
                 y, incy );
#else
    F77_scopy( &m,
               x, &incx, 
               y, &incy );
#endif
}

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().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_zcopy( m,
                 x, incx, 
                 y, incy );
#else
    F77_zcopy( &m,
               x, &incx, 
               y, &incy );
#endif
}