From f10c266b4d1ffaa14bba1bb2d96d42f760df0449 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Thu, 8 Dec 2022 21:02:01 +0100
Subject: [PATCH] Fix stride in shortcut path for small N

---
 interface/zsyr.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/interface/zsyr.c b/interface/zsyr.c
index 54fb8a4e9..8bc9ac177 100644
--- a/interface/zsyr.c
+++ b/interface/zsyr.c
@@ -181,7 +181,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, int n, FLOAT alpha, FLO
               alpha_i * x[i * 2 + 0] + alpha_r * x[i * 2 + 1],
               x,         1, a, 1, NULL, 0);
         }
-        a += lda;
+        a += lda * 2;
       }
     } else {
       for (i = 0; i < n; i++){
@@ -191,7 +191,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, int n, FLOAT alpha, FLO
               alpha_i * x[i * 2 + 0] + alpha_r * x[i * 2 + 1],
               x + i * 2, 1, a, 1, NULL, 0);
         }
-        a += 2 + lda;
+        a += 2 + lda * 2;
       }
     }
     return;