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