From 3aab164f0223067316f6f5fcf31e2d6cec73c536 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Wed, 31 Jul 2024 11:18:58 +0200
Subject: [PATCH] fix index variable

---
 kernel/zarch/dscal.c | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/kernel/zarch/dscal.c b/kernel/zarch/dscal.c
index 0b3a415a9..14695602d 100644
--- a/kernel/zarch/dscal.c
+++ b/kernel/zarch/dscal.c
@@ -96,28 +96,28 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x,
   if (inc_x == 1) {
 
     if (da == 0.0) {
+    
       if (dummy2 == 0) {
-      BLASLONG n1 = n & -16;
-      if (n1 > 0) {
+        BLASLONG n1 = n & -16;
+        if (n1 > 0) {
+          dscal_kernel_16_zero(n1, x);
+          j = n1;
+        }
 
-        dscal_kernel_16_zero(n1, x);
-        j = n1;
-      }
-
-      while (j < n) {
-
-        x[j] = 0.0;
-        j++;
-      }
-    } else {
-      while (j < n) {
-        if (!isnan(x[i])&& !isinf(x[i]))
-          x[i] = 0.0;
-        else
-          x[i] = NAN;
-        j++;
+        while (j < n) {
+          x[j] = 0.0;
+          j++;
+        }
+      } else {
+        while (j < n) {
+          if (isfinite(x[j]))
+            x[j] = 0.0;
+          else
+            x[j] = NAN;
+          j++;
         }
       }
+      
     } else {
 
       BLASLONG n1 = n & -16;