TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-07-18 17:03:43 +02:00
Code Issues Projects Releases Wiki Activity

fixed blas . #41

Browse Source
This commit is contained in:
v1j4y 2021-10-21 19:49:47 +02:00
parent 9c68623e0e
commit a2e420e9a5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
org/qmckl_blas.org
View File

@ -162,19 +162,19 @@ integer function qmckl_dgemm_f(context, TransA, TransB, m, n, k, alpha, A, LDA,
if (TransA) then 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) 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 .eq. 1.0d0 .and. beta .eq. 0.0d0) then if (alpha == 1.0d0 .and. beta == 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 .eq. 1.0d0 .and. beta .eq. 0.0d0) then if (alpha == 1.0d0 .and. beta == 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)