Martin Kroeker
GitHub
7 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 3 deletions
Unified View
Diff Options
-
+4 -3kernel/zarch/dsdot.c
+ 4
- 3
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++ ; | ||||