bl1_maxabsv.c File Reference

(r12600)

Functions
void	bl1_smaxabsv (int n, float *x, int incx, float *maxabs)
void	bl1_dmaxabsv (int n, double *x, int incx, double *maxabs)
void	bl1_cmaxabsv (int n, scomplex *x, int incx, float *maxabs)
void	bl1_zmaxabsv (int n, dcomplex *x, int incx, double *maxabs)

---

Function Documentation

void bl1_cmaxabsv	(	int	n,
		scomplex *	x,
		int	incx,
		float *	maxabs
	)

Referenced by bl1_cmaxabsm(), and bl1_cmaxabsmr().

{
    scomplex* chi;
    float     maxabs_cand;
    float     maxabs_temp;
    int       i;

    bl1_csabsval2( x, &maxabs_cand );

    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;

        bl1_csabsval2( chi, &maxabs_temp );
        
        if ( maxabs_temp > maxabs_cand ) maxabs_cand = maxabs_temp;
    }

    *maxabs = maxabs_cand;
}

void bl1_dmaxabsv	(	int	n,
		double *	x,
		int	incx,
		double *	maxabs
	)

Referenced by bl1_dmaxabsm(), and bl1_dmaxabsmr().

{
    double*   chi;
    double    maxabs_cand;
    double    maxabs_temp;
    int       i;

    bl1_dabsval2( x, &maxabs_cand );

    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;

        bl1_dabsval2( chi, &maxabs_temp );
        
        if ( maxabs_temp > maxabs_cand ) maxabs_cand = maxabs_temp;
    }

    *maxabs = maxabs_cand;
}

void bl1_smaxabsv	(	int	n,
		float *	x,
		int	incx,
		float *	maxabs
	)

Referenced by bl1_smaxabsm(), and bl1_smaxabsmr().

{
    float*    chi;
    float     maxabs_cand;
    float     maxabs_temp;
    int       i;

    bl1_sabsval2( x, &maxabs_cand );

    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;

        bl1_sabsval2( chi, &maxabs_temp );
        
        if ( maxabs_temp > maxabs_cand ) maxabs_cand = maxabs_temp;
    }

    *maxabs = maxabs_cand;
}

void bl1_zmaxabsv	(	int	n,
		dcomplex *	x,
		int	incx,
		double *	maxabs
	)

Referenced by bl1_zmaxabsm(), and bl1_zmaxabsmr().

{
    dcomplex* chi;
    double    maxabs_cand;
    double    maxabs_temp;
    int       i;

    bl1_zdabsval2( x, &maxabs_cand );

    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;

        bl1_zdabsval2( chi, &maxabs_temp );
        
        if ( maxabs_temp > maxabs_cand ) maxabs_cand = maxabs_temp;
    }

    *maxabs = maxabs_cand;
}