mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2025-01-09 12:44:12 +01:00
Fixed merge. #41
This commit is contained in:
parent
5a44ce39c2
commit
df6a2ade60
@ -161,19 +161,19 @@ integer function qmckl_dgemm_f(context, TransA, TransB, m, n, k, alpha, A, LDA,
|
|||||||
endif
|
endif
|
||||||
|
|
||||||
if (TransA) then
|
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)
|
C = matmul(AT,B)
|
||||||
else
|
else
|
||||||
C = beta*C + alpha*matmul(AT,B)
|
C = beta*C + alpha*matmul(AT,B)
|
||||||
endif
|
endif
|
||||||
else if (TransB) then
|
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)
|
C = matmul(A,BT)
|
||||||
else
|
else
|
||||||
C = beta*C + alpha*matmul(A,BT)
|
C = beta*C + alpha*matmul(A,BT)
|
||||||
endif
|
endif
|
||||||
else
|
else
|
||||||
if (alpha == 1.d0 && beta == 0.d0) then
|
if (alpha .eq. 1.0d0 .and. beta .eq. 0.0d0) then
|
||||||
C = matmul(A,B)
|
C = matmul(A,B)
|
||||||
else
|
else
|
||||||
C = beta*C + alpha*matmul(A,B)
|
C = beta*C + alpha*matmul(A,B)
|
||||||
|
Loading…
Reference in New Issue
Block a user