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

Fix precision of zarch DSDOT 

from patch provided by aarnez in #991
This commit is contained in:
Martin Kroeker 2019-01-31 21:22:26 +01:00 committed by GitHub
parent 265142edd5
commit 877023e1e1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
kernel/zarch/dsdot.c
View File

@ -132,7 +132,7 @@ double CNAME(BLASLONG n,FLOAT *x,BLASLONG inc_x,FLOAT *y,BLASLONG inc_y)
while(i < n) while(i < n)
{ {
dot += y[i] * x[i] ; dot += (double) y[i] * (double) x[i] ;
i++ ; i++ ;
} }
@ -146,7 +146,8 @@ double CNAME(BLASLONG n,FLOAT *x,BLASLONG inc_x,FLOAT *y,BLASLONG inc_y)
while(i < n1) while(i < n1)
{ {
dot += y[iy] * x[ix] + y[iy+inc_y] * x[ix+inc_x]; dot += (double) y[iy] * (double) x[ix];
dot += (double) y[iy+inc_y] * (double) x[ix+inc_x];
ix += inc_x*2 ; ix += inc_x*2 ;
iy += inc_y*2 ; iy += inc_y*2 ;
i+=2 ; i+=2 ;
@ -156,7 +157,7 @@ double CNAME(BLASLONG n,FLOAT *x,BLASLONG inc_x,FLOAT *y,BLASLONG inc_y)
while(i < n) while(i < n)
{ {
dot += y[iy] * x[ix] ; dot += (double) y[iy] * (double) x[ix] ;
ix += inc_x ; ix += inc_x ;
iy += inc_y ; iy += inc_y ;
i++ ; i++ ;