From 73751218a42d23017cc0f7899d9e52862867e5a3 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Wed, 17 Jul 2024 23:41:26 +0200
Subject: [PATCH] make NAN handling depend on dummy2 parameter

---
 kernel/arm/scal.c | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/kernel/arm/scal.c b/kernel/arm/scal.c
index 4455d7643..1f96f9b95 100644
--- a/kernel/arm/scal.c
+++ b/kernel/arm/scal.c
@@ -43,9 +43,22 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS
 	if ( (n <= 0) || (inc_x <= 0))
 		return(0);
 	
+	if (dummy2 == 0) 
+		while(j < n)
+		{
 
-	while(j < n)
-	{
+		if ( da == 0.0 )
+			x[i]=0.0;
+		else
+			x[i] = da * x[i] ;
+
+		i += inc_x ;
+		j++;
+		}
+	} else {
+	
+		while(j < n)
+		{
 
 		if ( da == 0.0 )
 			if (!isnan(x[i]) && !isinf(x[i])) {
@@ -59,6 +72,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS
 		i += inc_x ;
 		j++;
 
+		}
 	}
 	return 0;