TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2025-01-03 10:06:09 +01:00
Code Issues Projects Releases Wiki Activity

Fix Fortran BLAS && -> .and.

Browse Source
This commit is contained in:
Anthony Scemama 2021-10-17 17:57:15 +02:00
parent 6d3eb35b7f
commit d36810ce37
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
org/qmckl_blas.org
View File

@ -146,35 +146,35 @@ integer function qmckl_dgemm_f(context, TransA, TransB, m, n, k, alpha, A, LDA,
return
endif
if (LDA_2 .ne. m) then
if (LDA_2 /= m) then
info = QMCKL_INVALID_ARG_9
return
endif
if (LDB_2 .ne. k) then
if (LDB_2 /= k) then
info = QMCKL_INVALID_ARG_10
return
endif
if (LDC .ne. m) then
if (LDC /= m) then
info = QMCKL_INVALID_ARG_13
return
endif
if (TransA) then
if (alpha == 1.d0 && beta == 0.d0) then
if (alpha == 1.d0 .and. beta == 0.d0) 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 == 1.d0 .and. beta == 0.d0) 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 == 1.d0 .and. beta == 0.d0) then
C = matmul(A,B)
else
C = beta*C + alpha*matmul(A,B)