libflame
revision_anchor
|
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) |
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; }