From a2e420e9a5bb3ed89b5337479765101926e8fdfa Mon Sep 17 00:00:00 2001 From: v1j4y Date: Thu, 21 Oct 2021 19:49:47 +0200 Subject: [PATCH] fixed blas . #41 --- org/qmckl_blas.org | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/org/qmckl_blas.org b/org/qmckl_blas.org index 6fc570f..cd04b2e 100644 --- a/org/qmckl_blas.org +++ b/org/qmckl_blas.org @@ -162,19 +162,19 @@ integer function qmckl_dgemm_f(context, TransA, TransB, m, n, k, alpha, A, LDA, if (TransA) then - if (alpha .eq. 1.0d0 .and. beta .eq. 0.0d0) then + if (alpha == 1.0d0 .and. beta == 0.0d0) then C = matmul(AT,B) else C = beta*C + alpha*matmul(AT,B) endif else if (TransB) then - if (alpha .eq. 1.0d0 .and. beta .eq. 0.0d0) then + if (alpha == 1.0d0 .and. beta == 0.0d0) then C = matmul(A,BT) else C = beta*C + alpha*matmul(A,BT) endif else - if (alpha .eq. 1.0d0 .and. beta .eq. 0.0d0) then + if (alpha == 1.0d0 .and. beta == 0.0d0) then C = matmul(A,B) else C = beta*C + alpha*matmul(A,B)