Fixed a couple of correctness bugs in the Xher kernels

1 files changed, 3 insertions, 0 deletions

diff --git a/src/routines/level2/xher.cc b/src/routines/level2/xher.cc
index 4227252e..5eca44b0 100644
--- a/src/routines/level2/xher.cc
+++ b/src/routines/level2/xher.cc
@@ -74,6 +74,9 @@ StatusCode Xher<T,U>::DoHer(const Layout layout, const Triangle triangle,
   status = TestVectorX(n, x_buffer, x_offset, x_inc, sizeof(T));
   if (ErrorIn(status)) { return status; }
 
+  // If alpha is zero an update is not required
+  if (alpha == U{0}) { return StatusCode::kSuccess; }
+
   // Retrieves the Xgemv kernel from the compiled binary
   try {
     auto& program = GetProgramFromCache();