From 7560b1664ddd61a36a1733540a86307a5e15504d Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Wed, 31 Jul 2024 17:29:56 +0200
Subject: [PATCH] Update zscal.c

---
 kernel/zarch/zscal.c | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/kernel/zarch/zscal.c b/kernel/zarch/zscal.c
index 905935c54..eebae44c5 100644
--- a/kernel/zarch/zscal.c
+++ b/kernel/zarch/zscal.c
@@ -348,7 +348,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
     j = n1;
   }
 
-  if (da_r == 0.0 || da_r != da_r) {
+  if (da_r == 0.0 || isnan(da_r)) {
 
     if (da_i == 0.0) {
       double res= 0.0;
@@ -356,10 +356,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
       while (j < n) {
 
         x[i] = res;
-	if (!isinf(x[i + 1]))
-          x[i + 1] = res;
-	else
-	  x[i + 1] = NAN;
+        x[i + 1] = res;
         i += 2;
         j++;