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

Revert to the previous implementation. This would require more coding to correctly work ... 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@12547 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sponce 2016-06-27 17:26:31 +00:00
parent f2e7bd60a0
commit 3ebfa2139a
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
EPW/src/pw2wan90epw.f90
View File

@ -944,15 +944,26 @@ SUBROUTINE compute_mmn_para
ENDIF
ENDDO ! m
!
ibnd_n = 0
! SP: This should be the correct implementation but requires also changes
! at the level of m_mat a_mat dim etc.
! Currently EPW uses all bands. exclude_band cannot be used.
! We use nbndskip
!ibnd_n = 0
!DO n=1,nbnd
! IF (excluded_band(n)) CYCLE
! ibnd_n = ibnd_n + 1
! ibnd_m = 0
! DO m=1,nbnd
! IF (excluded_band(m)) CYCLE
! ibnd_m = ibnd_m + 1
! m_mat(ibnd_m,ibnd_n,ib,ik_g)=Mkb(m,n)
! ENDDO
!ENDDO
DO n=1,nbnd
IF (excluded_band(n)) CYCLE
ibnd_n = ibnd_n + 1
ibnd_m = 0
DO m=1,nbnd
IF (excluded_band(m)) CYCLE
ibnd_m = ibnd_m + 1
m_mat(ibnd_m,ibnd_n,ib,ik)=Mkb(m,n)
m_mat(m,n,ib,ik_g)=Mkb(m,n)
ENDDO
ENDDO
!