From ce130f11d2663baa3a44fb90a0e9a25c8cc34295 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 31 May 2024 15:09:03 +0200 Subject: [PATCH] Update zscal.c --- kernel/x86_64/zscal.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/kernel/x86_64/zscal.c b/kernel/x86_64/zscal.c index f55755727..7859ef6e3 100644 --- a/kernel/x86_64/zscal.c +++ b/kernel/x86_64/zscal.c @@ -260,7 +260,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i, temp0 = -da_i * x[i+1]; if (!isinf(x[i+1])) x[i+1] = da_i * x[i]; - else x[i+1] = NaN; + else x[i+1] = NAN; x[i] = temp0; if (isnan(x[i+inc_x]) || isinf(x[i+inc_x])) temp1 = NAN; @@ -268,7 +268,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i, temp1 = -da_i * x[i+1+inc_x]; if (!isinf(x[i+1+inc_x])) x[i+1+inc_x] = da_i * x[i+inc_x]; - else x[i+1+inc_x] = NaN; + else x[i+1+inc_x] = NAN; x[i+inc_x] = temp1; i += 2*inc_x ; j+=2;