From f1291fc957128478b805ff4d555eee7206d4e5e1 Mon Sep 17 00:00:00 2001
From: Meghana Vankadari <Meghana.Vankadari@amd.com>
Date: Wed, 8 Sep 2021 12:18:10 +0530
Subject: [PATCH] Disabled dzgemm blas interfaces

AMD-Internal: [CPUPL-1825]
Change-Id: I786a2ad83be418bd4c55d24e30ae6c3a86fd8844
---
 frame/compat/bla_gemm.c | 6 +++++-
 frame/compat/bla_gemm.h | 4 +++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/frame/compat/bla_gemm.c b/frame/compat/bla_gemm.c
index 0e77c3bb1..30e3b58e8 100644
--- a/frame/compat/bla_gemm.c
+++ b/frame/compat/bla_gemm.c
@@ -719,6 +719,10 @@ INSERT_GENTFUNC_BLAS_SC( gemm, gemm )
 #else
 INSERT_GENTFUNC_BLAS( gemm,gemm )
 #endif
+
+// Observed a regression in dgemm with this function addition.
+// Disabling temporarily.
+#if 0
 void dzgemm_
      (
        const f77_char* transa,
@@ -808,5 +812,5 @@ void dzgemm_
 	/* Finalize BLIS. */
 	bli_finalize_auto();
 }// end of dzgemm_
-
+#endif
 #endif
diff --git a/frame/compat/bla_gemm.h b/frame/compat/bla_gemm.h
index 425b01e7b..25aef8d11 100644
--- a/frame/compat/bla_gemm.h
+++ b/frame/compat/bla_gemm.h
@@ -54,6 +54,8 @@ BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \
      );
 
 #ifdef BLIS_ENABLE_BLAS
+// Disabling temporarily
+#if 0
 BLIS_EXPORT_BLAS void dzgemm_
      (
        const f77_char* transa, \
@@ -67,7 +69,7 @@ BLIS_EXPORT_BLAS void dzgemm_
        const dcomplex*    beta, \
              dcomplex*    c, const f77_int* ldc  \
      );
-
+#endif
 INSERT_GENTPROT_BLAS( gemm )
 
 #endif