scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

pw2wannier90: Fix bug in mmn on becp2%k

This commit is contained in:
Jae-Mo Lihm 2021-04-04 00:48:47 +09:00
parent 925f4a8032
commit 3061bf4ebc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PP/src/pw2wannier90.f90
View File

@ -2403,7 +2403,7 @@ SUBROUTINE compute_mmn
IF (excluded_band(n)) CYCLE
Mkb(m,n) = Mkb(m,n) + &
phase1 * qb(ih,jh,nt,ind) * &
conjg( becp%k(ikb,m) ) * becp2%r(jkb,n)
conjg( becp%k(ikb,m) ) * becp2%k(jkb,n)
ENDDO
ENDIF
ENDDO ! m