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++) {