Browse Source
Merge pull request #4557 from martin-frbg/4552-2
Fix support for a negative INC_X in the "generic" NRM2 kernels
tags/v0.3.27
Martin Kroeker
GitHub
2 years ago
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
6 changed files with
6 additions and
6 deletions
-
kernel/arm/nrm2.c
-
kernel/arm/znrm2.c
-
kernel/mips/nrm2.c
-
kernel/mips/znrm2.c
-
kernel/riscv64/nrm2.c
-
kernel/riscv64/znrm2.c
|
|
|
@@ -61,7 +61,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) |
|
|
|
if ( n == 1 ) return( ABS(x[0]) ); |
|
|
|
|
|
|
|
n *= inc_x; |
|
|
|
while(i < n) |
|
|
|
while(abs(i) < abs(n)) |
|
|
|
{ |
|
|
|
|
|
|
|
if ( x[i] != 0.0 ) |
|
|
|
|
|
|
|
@@ -62,7 +62,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) |
|
|
|
inc_x2 = 2 * inc_x; |
|
|
|
|
|
|
|
n *= inc_x2; |
|
|
|
while(i < n) |
|
|
|
while(abs(i) < abs(n)) |
|
|
|
{ |
|
|
|
|
|
|
|
if ( x[i] != 0.0 ) |
|
|
|
|
|
|
|
@@ -61,7 +61,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) |
|
|
|
if ( n == 1 ) return( ABS(x[0]) ); |
|
|
|
|
|
|
|
n *= inc_x; |
|
|
|
while(i < n) |
|
|
|
while(abs(i) < abs(n)) |
|
|
|
{ |
|
|
|
|
|
|
|
if ( x[i] != 0.0 ) |
|
|
|
|
|
|
|
@@ -53,7 +53,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) |
|
|
|
inc_x2 = 2 * inc_x; |
|
|
|
|
|
|
|
n *= inc_x2; |
|
|
|
while(i < n) |
|
|
|
while(abs(i) < abs(n)) |
|
|
|
{ |
|
|
|
|
|
|
|
if ( x[i] != 0.0 ) |
|
|
|
|
|
|
|
@@ -61,7 +61,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) |
|
|
|
if ( n == 1 ) return( ABS(x[0]) ); |
|
|
|
|
|
|
|
n *= inc_x; |
|
|
|
while(i < n) |
|
|
|
while(abs(i) < abs(n)) |
|
|
|
{ |
|
|
|
|
|
|
|
if ( x[i] != 0.0 ) |
|
|
|
|
|
|
|
@@ -62,7 +62,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) |
|
|
|
inc_x2 = 2 * inc_x; |
|
|
|
|
|
|
|
n *= inc_x2; |
|
|
|
while(i < n) |
|
|
|
while(abs(i) < abs(n)) |
|
|
|
{ |
|
|
|
|
|
|
|
if ( x[i] != 0.0 ) |
|
|
|
|
