From 18a230416305c6296ce9162977398351ec89ebe6 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Tue, 17 Jun 2025 06:04:48 -0700
Subject: [PATCH] Add files via upload

---
 kernel/arm/zscal.c | 47 ++++++++++++++--------------------------------
 1 file changed, 14 insertions(+), 33 deletions(-)

diff --git a/kernel/arm/zscal.c b/kernel/arm/zscal.c
index ca1696df9..b210f9af3 100644
--- a/kernel/arm/zscal.c
+++ b/kernel/arm/zscal.c
@@ -48,46 +48,27 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
 
     if ((n <= 0) || (inc_x <= 0))
         return(0);
-printf("arm zscal kernel\n");
+
     inc_x2 = 2 * inc_x;
     if (dummy2 == 0) {
-        printf("arm zscal kernel, dummy2 is zero\n");
-        for ( i=0; i<n; i++ )
+        for (i = 0; i < n; i++)
         {
-                if ( da_r == 0.0 )
-                {
-                        if ( da_i == 0.0 )
-                        {
-                                temp = 0.0;
-                                x[ip+1] = 0.0 ;
-                        }
-                        else
-                        {
-                                temp = - da_i * x[ip+1] ;
-                                x[ip+1] = da_i * x[ip]  ;
-                        }
-                }
-                else
-                {
-                        if ( da_i == 0.0 )
-                        {
-                                temp    = da_r * x[ip]  ;
-                                x[ip+1] = da_r * x[ip+1];
-                        }
-                        else
-                        {
-                                temp    = da_r * x[ip]   - da_i * x[ip+1] ;
-                                x[ip+1] = da_r * x[ip+1] + da_i * x[ip]   ;
-                        }
-                }
-                x[ip]   = temp;
+            if (da_r == 0.0 && da_i == 0.0)
+            {
+                x[ip] = 0.0;
+                x[ip+1] = 0.0;
+            }
+            else
+            {
+                temp    = da_r * x[ip]   - da_i * x[ip+1];
+                x[ip+1] = da_r * x[ip+1] + da_i * x[ip]  ;
+                x[ip] = temp;
+            }
 
-                ip += inc_x2;
+            ip += inc_x2;
         }
-
         return(0);
     }
-    printf("arm zscal kernel in nan-propagating mode\n");
     for (i = 0; i < n; i++)
     {
         temp    = da_r * x[ip]   - da_i * x[ip+1];