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

Fix BLAS, BLAS-like functions and Generic RISC-V kernels

Browse Source 
* Fixed gemmt, imatcopy, zimatcopy_cnc functions
* Fixed cblas_cscal testing in ctest
* Removed rotmg unreacheble code
* Added zero size checks
This commit is contained in:
kseniyazaytseva
2023-03-17 14:28:26 +03:00
committed by Andrey Sokolov
parent 88e994116c
commit ff41cf5c49
17 changed files with 201 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
kernel/riscv64/axpby.c
View File

@@ -33,7 +33,7 @@ int CNAME(BLASLONG n, FLOAT alpha, FLOAT *x, BLASLONG inc_x, FLOAT beta, FLOAT *
BLASLONG i=0;
BLASLONG ix,iy;
if ( n < 0 ) return(0);
if ( n <= 0 ) return(0);
ix = 0;
iy = 0;

2
kernel/riscv64/axpy.c
View File

@@ -42,7 +42,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS
BLASLONG i=0;
BLASLONG ix,iy;
if ( n < 0 ) return(0);
if ( n <= 0 ) return(0);
if ( da == 0.0 ) return(0);
ix = 0;

2
kernel/riscv64/copy.c
View File

@@ -41,7 +41,7 @@ int CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y)
BLASLONG i=0;
BLASLONG ix=0,iy=0;
if ( n < 0 ) return(0);
if ( n <= 0 ) return(0);
while(i < n)
{

2
kernel/riscv64/dot.c
View File

@@ -46,7 +46,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y)
BLASLONG ix=0,iy=0;
double dot = 0.0 ;
if ( n < 0 ) return(dot);
if ( n < 1 ) return(dot);
while(i < n)
{

2
kernel/riscv64/swap.c
View File

@@ -41,7 +41,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT dummy3, FLOAT *x,
BLASLONG ix=0,iy=0;
FLOAT temp;
if ( n < 0 ) return(0);
if ( n <= 0 ) return(0);
while(i < n)
{

2
kernel/riscv64/zaxpy.c
View File

@@ -44,7 +44,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
BLASLONG inc_x2;
BLASLONG inc_y2;
if ( n < 0 ) return(0);
if ( n <= 0 ) return(0);
if ( da_r == 0.0 && da_i == 0.0 ) return(0);
ix = 0;

2
kernel/riscv64/zcopy.c
View File

@@ -43,7 +43,7 @@ int CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y)
BLASLONG inc_x2;
BLASLONG inc_y2;
if ( n < 0 ) return(0);
if ( n <= 0 ) return(0);
inc_x2 = 2 * inc_x;
inc_y2 = 2 * inc_y;

2
kernel/riscv64/zswap.c
View File

@@ -45,7 +45,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT dummy3, FLOAT dumm
BLASLONG inc_x2;
BLASLONG inc_y2;
if ( n < 0 ) return(0);
if ( n <= 0 ) return(0);
inc_x2 = 2 * inc_x;
inc_y2 = 2 * inc_y;