floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #4557 from martin-frbg/4552-2 

Fix support for a negative INC_X in the "generic" NRM2 kernels
This commit is contained in:
Martin Kroeker 2024-03-12 16:13:54 +01:00 committed by GitHub
parent 4a6025af9a 6b89e1f1d7
commit 42584b4158
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
kernel/arm/nrm2.c
View File

@ -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 )

2
kernel/arm/znrm2.c
View File

@ -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 )

2
kernel/mips/nrm2.c
View File

@ -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 )

2
kernel/mips/znrm2.c
View File

@ -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 )

2
kernel/riscv64/nrm2.c
View File

@ -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 )

2
kernel/riscv64/znrm2.c
View File

@ -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 )