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

bugfix for arm scal.c and zscal.c

This commit is contained in:
Werner Saar 2016-04-11 11:21:36 +02:00
parent 1ca750471a
commit 8037d78eed
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
kernel/arm/scal.c
View File

@ -40,6 +40,10 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS
{ {
BLASLONG i=0,j=0; BLASLONG i=0,j=0;
if ( (n <= 0) || (inc_x <= 0))
return(0);
while(j < n) while(j < n)
{ {

4
kernel/arm/zscal.c
View File

@ -43,6 +43,10 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
BLASLONG ip = 0; BLASLONG ip = 0;
FLOAT temp; FLOAT temp;
if ( (n <= 0) || (inc_x <= 0))
return(0);
inc_x2 = 2 * inc_x; inc_x2 = 2 * inc_x;
for ( i=0; i<n; i++ ) for ( i=0; i<n; i++ )
{ {