TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-07-03 01:46:12 +02: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 return
endif endif
if (LDA_2 .ne. m) then if (LDA_2 /= m) then
info = QMCKL_INVALID_ARG_9 info = QMCKL_INVALID_ARG_9
return return
endif endif
if (LDB_2 .ne. k) then if (LDB_2 /= k) then
info = QMCKL_INVALID_ARG_10 info = QMCKL_INVALID_ARG_10
return return
endif endif
if (LDC .ne. m) then if (LDC /= m) then
info = QMCKL_INVALID_ARG_13 info = QMCKL_INVALID_ARG_13
return return
endif endif
if (TransA) then if (TransA) then
if (alpha == 1.d0 && beta == 0.d0) then if (alpha == 1.d0 .and. beta == 0.d0) 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 == 1.d0 .and. beta == 0.d0) 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 == 1.d0 .and. beta == 0.d0) 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)