bl1_nrm2.c File Reference

(r12600)

Functions
void	bl1_snrm2 (int n, float *x, int incx, float *norm)
void	bl1_dnrm2 (int n, double *x, int incx, double *norm)
void	bl1_cnrm2 (int n, scomplex *x, int incx, float *norm)
void	bl1_znrm2 (int n, dcomplex *x, int incx, double *norm)

---

Function Documentation

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

References cblas_scnrm2(), and F77_scnrm2().

Referenced by FLA_Househ2_UT_l_opc(), FLA_Househ2s_UT_l_opc(), FLA_Househ3UD_UT_opc(), and FLA_Nrm2_external().

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

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

References cblas_dnrm2(), and F77_dnrm2().

Referenced by FLA_Househ2_UT_l_opd(), FLA_Househ2s_UT_l_opd(), FLA_Househ3UD_UT_opd(), and FLA_Nrm2_external().

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

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

References cblas_snrm2(), and F77_snrm2().

Referenced by FLA_Househ2_UT_l_ops(), FLA_Househ2s_UT_l_ops(), FLA_Househ3UD_UT_ops(), and FLA_Nrm2_external().

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

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

References cblas_dznrm2(), and F77_dznrm2().

Referenced by FLA_Househ2_UT_l_opz(), FLA_Househ2s_UT_l_opz(), FLA_Househ3UD_UT_opz(), and FLA_Nrm2_external().

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