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