1
0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-12-23 04:44:03 +01:00

Fixed merge. #41

This commit is contained in:
v1j4y 2021-10-15 10:22:47 +02:00
parent 5a44ce39c2
commit df6a2ade60

View File

@ -161,19 +161,19 @@ integer function qmckl_dgemm_f(context, TransA, TransB, m, n, k, alpha, A, LDA,
endif
if (TransA) then
if (alpha == 1.d0 && beta == 0.d0) then
if (alpha .eq. 1.0d0 .and. beta .eq. 0.0d0) then
C = matmul(AT,B)
else
C = beta*C + alpha*matmul(AT,B)
endif
else if (TransB) then
if (alpha == 1.d0 && beta == 0.d0) then
if (alpha .eq. 1.0d0 .and. beta .eq. 0.0d0) then
C = matmul(A,BT)
else
C = beta*C + alpha*matmul(A,BT)
endif
else
if (alpha == 1.d0 && beta == 0.d0) then
if (alpha .eq. 1.0d0 .and. beta .eq. 0.0d0) then
C = matmul(A,B)
else
C = beta*C + alpha*matmul(A,B)