From 723a56b045187858d2fc487e1ef9a512b70ef305 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Thu, 15 Apr 2021 19:10:27 +0200
Subject: [PATCH] Update gemv.c

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

diff --git a/interface/gemv.c b/interface/gemv.c
index 4abc58307..8f3fce18c 100644
--- a/interface/gemv.c
+++ b/interface/gemv.c
@@ -198,13 +198,13 @@ fprintf(stderr,"interface for CBLAS_?GEMV starting, order=%d trans=%d m=%ld n=%l
   leny = m;
   if (trans) lenx = m;
   if (trans) leny = n;
-
+  if (alpha == ZERO) return;
   if (beta != ONE) {
 	  fprintf(stderr,"CBLAS_?GEMV calling SCAL_K\n");
 	  SCAL_K(leny, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);
 	  fprintf(stderr,"CBLAS_?GEMV done calling SCAL_K\n");
   }
-  if (alpha == ZERO) return;
+
 
   IDEBUG_START;