From 711433fcf0257cd07cf728c64e175960d0da38a2 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sun, 7 Jan 2024 18:01:58 +0100
Subject: [PATCH] Update zscal.c

---
 kernel/mips/zscal.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/kernel/mips/zscal.c b/kernel/mips/zscal.c
index d8cbffcf9..127f4f444 100644
--- a/kernel/mips/zscal.c
+++ b/kernel/mips/zscal.c
@@ -63,9 +63,9 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
 				x[ip+1] = da_r * x[ip+1] + da_i * x[ip]   ;
 			}
 		}
-		if (!isnan(x_ip] && !isinf(x[ip]))
+//		if (!isnan(x_ip] && !isinf(x[ip]))
 		x[ip]   = temp;
-
+		if ( da_r != da_r ) x[ip] = da_r;
 		ip += inc_x2;
 	}