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

added ZERO check because bug in lapack-test

This commit is contained in:
wernsaar 2014-05-13 15:31:36 +02:00
parent 793509a3b5
commit 650ed34336
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
kernel/arm/scal.c
View File

@ -38,20 +38,21 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT *dummy, BLASLONG dummy2) int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT *dummy, BLASLONG dummy2)
{ {
BLASLONG i=0; BLASLONG i=0,j=0;
if ( n < 0 || inc_x < 1 ) return(0); while(j < n)
if ( da == 1.0 ) return(0);
n *= inc_x;
while(i < n)
{ {
x[i] = da * x[i] ; if ( da == 0.0 )
x[i]=0.0;
else
x[i] = da * x[i] ;
i += inc_x ; i += inc_x ;
j++;
} }
return(0); return;
} }