libflame  revision_anchor
Functions
bli_maxabsv.c File Reference

(r)

Functions

void bli_smaxabsv (int n, float *x, int incx, float *maxabs)
void bli_dmaxabsv (int n, double *x, int incx, double *maxabs)
void bli_cmaxabsv (int n, scomplex *x, int incx, float *maxabs)
void bli_zmaxabsv (int n, dcomplex *x, int incx, double *maxabs)

Function Documentation

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

Referenced by bli_cmaxabsm(), and bli_cmaxabsmr().

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

    bli_csabsval2( x, &maxabs_cand );

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

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

    *maxabs = maxabs_cand;
}
void bli_dmaxabsv ( int  n,
double *  x,
int  incx,
double *  maxabs 
)

Referenced by bli_dmaxabsm(), and bli_dmaxabsmr().

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

    bli_dabsval2( x, &maxabs_cand );

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

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

    *maxabs = maxabs_cand;
}
void bli_smaxabsv ( int  n,
float *  x,
int  incx,
float *  maxabs 
)

Referenced by bli_smaxabsm(), and bli_smaxabsmr().

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

    bli_sabsval2( x, &maxabs_cand );

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

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

    *maxabs = maxabs_cand;
}
void bli_zmaxabsv ( int  n,
dcomplex x,
int  incx,
double *  maxabs 
)

Referenced by bli_zmaxabsm(), and bli_zmaxabsmr().

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

    bli_zdabsval2( x, &maxabs_cand );

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

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

    *maxabs = maxabs_cand;
}