bl1_asum.c File Reference

(r)

Functions
void	bl1_sasum (int n, float *x, int incx, float *norm)
void	bl1_dasum (int n, double *x, int incx, double *norm)
void	bl1_casum (int n, scomplex *x, int incx, float *norm)
void	bl1_zasum (int n, dcomplex *x, int incx, double *norm)

Function Documentation

bl1_casum()

void bl1_casum	(	int	n,
		scomplex *	x,
		int	incx,
		float *	norm
	)

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    *norm = cblas_scasum( n,
                          x, incx );
#else
    *norm = F77_scasum( &n,
                        x, &incx );
#endif
}

References cblas_scasum(), and F77_scasum().

Referenced by FLA_Asum_external().

bl1_dasum()

void bl1_dasum	(	int	n,
		double *	x,
		int	incx,
		double *	norm
	)

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    *norm = cblas_dasum( n,
                         x, incx );
#else
    *norm = F77_dasum( &n,
                       x, &incx );
#endif
}

References cblas_dasum(), and F77_dasum().

Referenced by FLA_Asum_external().

bl1_sasum()

void bl1_sasum	(	int	n,
		float *	x,
		int	incx,
		float *	norm
	)

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    *norm = cblas_sasum( n,
                         x, incx );
#else
    *norm = F77_sasum( &n,
                       x, &incx );
#endif
}

References cblas_sasum(), and F77_sasum().

Referenced by FLA_Asum_external().

bl1_zasum()

void bl1_zasum	(	int	n,
		dcomplex *	x,
		int	incx,
		double *	norm
	)

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    *norm = cblas_dzasum( n,
                          x, incx );
#else
    *norm = F77_dzasum( &n,
                        x, &incx );
#endif
}

References cblas_dzasum(), and F77_dzasum().

Referenced by FLA_Asum_external().