Update nrm2_vector.c
This commit is contained in:
parent
3752e73919
commit
18a6db6862
|
@ -193,7 +193,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
|
||||||
//finish any tail using scalar ops
|
//finish any tail using scalar ops
|
||||||
i*=gvl*inc_x;
|
i*=gvl*inc_x;
|
||||||
n*=inc_x;
|
n*=inc_x;
|
||||||
while(abs(i) < abs(n)){
|
while(i< n){
|
||||||
if ( x[i] != 0.0 ){
|
if ( x[i] != 0.0 ){
|
||||||
FLOAT absxi = ABS( x[i] );
|
FLOAT absxi = ABS( x[i] );
|
||||||
if ( scale < absxi ){
|
if ( scale < absxi ){
|
||||||
|
|
Loading…
Reference in New Issue