OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

Allow negative INCX (API change from version 3.10 of the reference implementation)

tags/v0.3.24
Martin Kroeker GitHub 2 years ago
parent
54d3246fc6
commit
a34a0a7abc
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 2 additions and 2 deletions
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +1
    -1
      kernel/riscv64/nrm2.c
  2. +1
    -1
      kernel/riscv64/znrm2.c

+ 1
- 1
kernel/riscv64/nrm2.c View File

@@ -57,7 +57,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
FLOAT absxi = 0.0;


if (n <= 0 || inc_x <= 0) return(0.0);
if (n <= 0 || inc_x == 0) return(0.0);
if ( n == 1 ) return( ABS(x[0]) );

n *= inc_x;


+ 1
- 1
kernel/riscv64/znrm2.c View File

@@ -57,7 +57,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
BLASLONG inc_x2;
FLOAT temp;

if (n <= 0 || inc_x <= 0) return(0.0);
if (n <= 0 || inc_x == 0) return(0.0);

inc_x2 = 2 * inc_x;



Write Preview
Loading…
Cancel
Save