From e1e5be594a8a476abb3909550396c9332dbf9548 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sun, 25 May 2025 22:57:50 +0200
Subject: [PATCH] Update zscal.c

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

diff --git a/kernel/zarch/zscal.c b/kernel/zarch/zscal.c
index 224228037..635e1fef6 100644
--- a/kernel/zarch/zscal.c
+++ b/kernel/zarch/zscal.c
@@ -245,8 +245,9 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
 		x[i + inc_x + 1] = 0.;
 	}
 	i += 2 * inc_x;
-	i += 2;
+	j += 2;
 	}
+	       
 	while (j < n) {
 	if (isnan(x[i]) || isinf(x[i]) || isnan(x[i+1])) {
 		x[i] = NAN;
@@ -257,8 +258,8 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
 	}
 		i += inc_x;
 		j++;
+        }
        }
-
       } else {
 
         while (j < n1) {