Martin Kroeker
GitHub
1 year ago
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 9 additions and 2 deletions
Unified View
Diff Options
-
+9 -2kernel/zarch/zscal.c
+ 9
- 2
kernel/zarch/zscal.c
View File
| @@ -348,7 +348,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i, | |||||
| j = n1; | j = n1; | ||||
| } | } | ||||
| if (da_r == 0.0 || isnan(da_r)) { | |||||
| if (da_r == 0.0 || da_r != da_r) { | |||||
| if (da_i == 0.0) { | if (da_i == 0.0) { | ||||
| double res= 0.0; | double res= 0.0; | ||||
| @@ -362,11 +362,18 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i, | |||||
| } | } | ||||
| } else if (isinf(da_r)) { | |||||
| while (j < n) { | |||||
| x[i] = NAN; | |||||
| x[i + 1] = da_r; | |||||
| i += 2; | |||||
| j++ | |||||
| } | |||||
| } else { | } else { | ||||
| while (j < n) { | while (j < n) { | ||||
| if (isnan(x[i]) || isinf(x[i])) | |||||
| if (isinf(x[i])) | |||||
| temp0 = NAN; | temp0 = NAN; | ||||
| else | else | ||||
| temp0 = -da_i * x[i + 1]; | temp0 = -da_i * x[i + 1]; | ||||