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

Fix spaces

This commit is contained in:
Sasha Fonari 2021-09-01 11:27:01 -04:00
parent 702cea910e
commit db8b54e746
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
PP/src/projwfc.f90
View File

@ -829,13 +829,13 @@ SUBROUTINE print_proj ( lmax_wfc, proj, lowdin_unit )
DO nwfc = 1, natomwfc
na= nlmchi(nwfc)%na
l = nlmchi(nwfc)%l
IF ( noncolin .AND. .NOT. lspinorb ) THEN
IF (nlmchi(nwfc)%ind<=(2*l+1)) THEN
current_spin = 1
IF ( noncolin .AND. .NOT. lspinorb ) THEN
IF (nlmchi(nwfc)%ind<=(2*l+1)) THEN
current_spin = 1
ELSE
current_spin = 2
current_spin = 2
ENDIF
END IF
END IF
charges(na,l,current_spin) = charges(na,l,current_spin) + &
wg (ibnd,ik) * proj (nwfc, ibnd, ik)
IF ( nspin /= 4 ) THEN