From ae5bdb76fb854a0f33fb912bb6132b797a66c901 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 25 May 2025 16:10:10 +0200 Subject: [PATCH] Update cscal.c --- kernel/zarch/cscal.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/kernel/zarch/cscal.c b/kernel/zarch/cscal.c index 84839a89c..cec7b3fb3 100644 --- a/kernel/zarch/cscal.c +++ b/kernel/zarch/cscal.c @@ -266,7 +266,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i, } else { while (j < n1) { - if (isnan(x[i]) || isinf(x[i]) || isnan(x[i+1])) + if (isnan(x[i]) || isinf(x[i])) temp0 = NAN; else 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 x[i + 1] = NAN; 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; else 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) { - if (isnan(x[i]) || isinf(x[i]) || isnan(x[i+1])) + if (isnan(x[i]) || isinf(x[i])) temp0 = NAN; else temp0 = -da_i * x[i + 1];