bl1_axpy.c File Reference

(r12600)

Functions
void	bl1_saxpy (int n, float *alpha, float *x, int incx, float *y, int incy)
void	bl1_daxpy (int n, double *alpha, double *x, int incx, double *y, int incy)
void	bl1_caxpy (int n, scomplex *alpha, scomplex *x, int incx, scomplex *y, int incy)
void	bl1_zaxpy (int n, dcomplex *alpha, dcomplex *x, int incx, dcomplex *y, int incy)

---

Function Documentation

void bl1_caxpy	(	int	n,
		scomplex *	alpha,
		scomplex *	x,
		int	incx,
		scomplex *	y,
		int	incy
	)

References cblas_caxpy(), and F77_caxpy().

Referenced by bl1_caxpymt(), bl1_caxpysmt(), bl1_caxpysv(), and bl1_caxpyv().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_caxpy( n,
                 alpha,
                 x, incx,
                 y, incy );
#else
    F77_caxpy( &n,
               alpha,
               x, &incx,
               y, &incy );
#endif
}

void bl1_daxpy	(	int	n,
		double *	alpha,
		double *	x,
		int	incx,
		double *	y,
		int	incy
	)

References cblas_daxpy(), and F77_daxpy().

Referenced by bl1_daxpymt(), bl1_daxpysmt(), bl1_daxpysv(), and bl1_daxpyv().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_daxpy( n,
                 *alpha,
                 x, incx,
                 y, incy );
#else
    F77_daxpy( &n,
               alpha,
               x, &incx,
               y, &incy );
#endif
}

void bl1_saxpy	(	int	n,
		float *	alpha,
		float *	x,
		int	incx,
		float *	y,
		int	incy
	)

References cblas_saxpy(), and F77_saxpy().

Referenced by bl1_saxpymt(), bl1_saxpysmt(), bl1_saxpysv(), and bl1_saxpyv().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_saxpy( n,
                 *alpha,
                 x, incx,
                 y, incy );
#else
    F77_saxpy( &n,
               alpha,
               x, &incx,
               y, &incy );
#endif
}

void bl1_zaxpy	(	int	n,
		dcomplex *	alpha,
		dcomplex *	x,
		int	incx,
		dcomplex *	y,
		int	incy
	)

References cblas_zaxpy(), and F77_zaxpy().

Referenced by bl1_zaxpymt(), bl1_zaxpysmt(), bl1_zaxpysv(), and bl1_zaxpyv().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_zaxpy( n,
                 alpha,
                 x, incx,
                 y, incy );
#else
    F77_zaxpy( &n,
               alpha,
               x, &incx,
               y, &incy );
#endif
}