bl1_scal.c File Reference

(r12600)

Functions
void	bl1_sscal (int n, float *alpha, float *x, int incx)
void	bl1_dscal (int n, double *alpha, double *x, int incx)
void	bl1_csscal (int n, float *alpha, scomplex *x, int incx)
void	bl1_cscal (int n, scomplex *alpha, scomplex *x, int incx)
void	bl1_zdscal (int n, double *alpha, dcomplex *x, int incx)
void	bl1_zscal (int n, dcomplex *alpha, dcomplex *x, int incx)

---

Function Documentation

void bl1_cscal	(	int	n,
		scomplex *	alpha,
		scomplex *	x,
		int	incx
	)

References cblas_cscal(), and F77_cscal().

Referenced by bl1_caxpysmt(), bl1_caxpysv(), bl1_cinvscalm(), bl1_cinvscalv(), bl1_cscalm(), bl1_cscalmr(), bl1_cscalv(), and FLA_SA_LU_unb().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_cscal( n,
                 alpha,
                 x, incx );
#else
    F77_cscal( &n,
               alpha,
               x, &incx );
#endif
}

void bl1_csscal	(	int	n,
		float *	alpha,
		scomplex *	x,
		int	incx
	)

References cblas_csscal(), and F77_csscal().

Referenced by bl1_csinvscalm(), bl1_csinvscalv(), bl1_csscalm(), bl1_csscalmr(), and bl1_csscalv().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_csscal( n,
                  *alpha,
                  x, incx );
#else
    F77_csscal( &n,
                alpha,
                x, &incx );
#endif
}

void bl1_dscal	(	int	n,
		double *	alpha,
		double *	x,
		int	incx
	)

References cblas_dscal(), and F77_dscal().

Referenced by bl1_daxpysmt(), bl1_daxpysv(), bl1_dinvscalm(), bl1_dinvscalv(), bl1_dscalm(), bl1_dscalmr(), bl1_dscalv(), bl1_zconjm(), bl1_zconjmr(), bl1_zconjv(), and FLA_SA_LU_unb().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_dscal( n,
                 *alpha,
                 x, incx );
#else
    F77_dscal( &n,
               alpha,
               x, &incx );
#endif
}

void bl1_sscal	(	int	n,
		float *	alpha,
		float *	x,
		int	incx
	)

References cblas_sscal(), and F77_sscal().

Referenced by bl1_cconjm(), bl1_cconjmr(), bl1_cconjv(), bl1_saxpysmt(), bl1_saxpysv(), bl1_sinvscalm(), bl1_sinvscalv(), bl1_sscalm(), bl1_sscalmr(), bl1_sscalv(), and FLA_SA_LU_unb().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_sscal( n,
                 *alpha,
                 x, incx );
#else
    F77_sscal( &n,
               alpha,
               x, &incx );
#endif
}

void bl1_zdscal	(	int	n,
		double *	alpha,
		dcomplex *	x,
		int	incx
	)

References cblas_zdscal(), and F77_zdscal().

Referenced by bl1_zdinvscalm(), bl1_zdinvscalv(), bl1_zdscalm(), bl1_zdscalmr(), and bl1_zdscalv().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_zdscal( n,
                  *alpha,
                  x, incx );
#else
    F77_zdscal( &n,
                alpha,
                x, &incx );
#endif
}

void bl1_zscal	(	int	n,
		dcomplex *	alpha,
		dcomplex *	x,
		int	incx
	)

References cblas_zscal(), and F77_zscal().

Referenced by bl1_zaxpysmt(), bl1_zaxpysv(), bl1_zinvscalm(), bl1_zinvscalv(), bl1_zscalm(), bl1_zscalmr(), bl1_zscalv(), and FLA_SA_LU_unb().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    cblas_zscal( n,
                 alpha,
                 x, incx );
#else
    F77_zscal( &n,
               alpha,
               x, &incx );
#endif
}