From 3dda4ebf229e4f2ab2c13cc1bb82b42f95ed76d9 Mon Sep 17 00:00:00 2001
From: Madan mohan Manokar <madanmohan.manokar@amd.com>
Date: Fri, 10 Sep 2021 09:12:59 +0530
Subject: [PATCH] Induced method turned off, fix for beta=0 & C = NAN

1. Induced Method turned off, till the path fully tested for different alpha,beta conditions.
2. Fix for Beta =0, and C = NAN done.

Change-Id: I5a7bd1393ac245c2ebb72f9a634728af4c0d4000
---
 frame/compat/bla_gemm.c              |  2 +-
 kernels/zen/3/bli_gemm_sqp_kernels.c | 17 ++++++++++++++++-
 2 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/frame/compat/bla_gemm.c b/frame/compat/bla_gemm.c
index 30e3b58e8..faa7459a4 100644
--- a/frame/compat/bla_gemm.c
+++ b/frame/compat/bla_gemm.c
@@ -38,7 +38,7 @@
 //
 // Define BLAS-to-BLIS interfaces.
 //
-#define ENABLE_INDUCED_METHOD 1
+#define ENABLE_INDUCED_METHOD 0
 #ifdef BLIS_BLAS3_CALLS_TAPI
 
 #undef  GENTFUNC
diff --git a/kernels/zen/3/bli_gemm_sqp_kernels.c b/kernels/zen/3/bli_gemm_sqp_kernels.c
index 9cac5e83e..0f20c0a95 100644
--- a/kernels/zen/3/bli_gemm_sqp_kernels.c
+++ b/kernels/zen/3/bli_gemm_sqp_kernels.c
@@ -1278,7 +1278,22 @@ void bli_3m_sqp_packC_real_imag(double* pc,
             }
         }
     }
-    else /* handles alpha or beta is not equal +/- 1.0 */
+    else if(mul==0) /* handles alpha or beta is equal to zero */
+    {
+        double br_ = 0;
+        double bi_ = 0;
+        for (j = 0; j < n; j++)
+        {
+            for (p = 0; p < (m*2); p += 2)// (real + imag)*m
+            {
+                *pcr = br_;
+                *pci = bi_;
+                pcr++; pci++;
+            }
+            pc = pc + ldc;
+        }
+    }
+    else /* handles alpha or beta is not equal +/- 1.0 and zero */
     {
         for (j = 0; j < n; j++)
         {