bl1_amax.c File Reference

(r12600)

Functions
void	bl1_samax (int n, float *x, int incx, int *index)
void	bl1_damax (int n, double *x, int incx, int *index)
void	bl1_camax (int n, scomplex *x, int incx, int *index)
void	bl1_zamax (int n, dcomplex *x, int incx, int *index)

---

Function Documentation

void bl1_camax	(	int	n,
		scomplex *	x,
		int	incx,
		int *	index
	)

References cblas_icamax(), and F77_icamax().

Referenced by FLA_Amax_external(), FLA_LU_piv_opc_var3(), FLA_LU_piv_opc_var4(), FLA_LU_piv_opc_var5(), and FLA_SA_LU_unb().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    *index = cblas_icamax( n,
                           x, incx );
#else
    *index = F77_icamax( &n,
                         x, &incx ) - 1;
#endif
}

void bl1_damax	(	int	n,
		double *	x,
		int	incx,
		int *	index
	)

References cblas_idamax(), and F77_idamax().

Referenced by FLA_Amax_external(), FLA_LU_piv_opd_var3(), FLA_LU_piv_opd_var4(), FLA_LU_piv_opd_var5(), and FLA_SA_LU_unb().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    *index = cblas_idamax( n,
                           x, incx );
#else
    *index = F77_idamax( &n,
                         x, &incx ) - 1;
#endif
}

void bl1_samax	(	int	n,
		float *	x,
		int	incx,
		int *	index
	)

References cblas_isamax(), and F77_isamax().

Referenced by FLA_Amax_external(), FLA_LU_piv_ops_var3(), FLA_LU_piv_ops_var4(), FLA_LU_piv_ops_var5(), and FLA_SA_LU_unb().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    *index = cblas_isamax( n,
                           x, incx );
#else
    *index = F77_isamax( &n,
                         x, &incx ) - 1;
#endif
}

void bl1_zamax	(	int	n,
		dcomplex *	x,
		int	incx,
		int *	index
	)

References cblas_izamax(), and F77_izamax().

Referenced by FLA_Amax_external(), FLA_LU_piv_opz_var3(), FLA_LU_piv_opz_var4(), FLA_LU_piv_opz_var5(), and FLA_SA_LU_unb().

{
#ifdef BLIS1_ENABLE_CBLAS_INTERFACES
    *index = cblas_izamax( n,
                           x, incx );
#else
    *index = F77_izamax( &n,
                         x, &incx ) - 1;
#endif
}