mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-08-16 18:38:28 +02:00
Fixed indices caused by typo.
This commit is contained in:
parent
e822694a56
commit
9a5178b011
@ -979,7 +979,7 @@ integer function qmckl_dgemm_f(context, TransA, TransB, &
|
||||
|
||||
do j=1,n
|
||||
do i=1,m
|
||||
C(i,j) = alpha*C1(j,i) + beta*C(j,i)
|
||||
C(i,j) = alpha*C1(j,i) + beta*C(i,j)
|
||||
end do
|
||||
end do
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user