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

Bug fix: another bug with wf_collect=.true. and noncollinear. evc has to 

be initialized to zero.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4004 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2007-07-06 08:54:15 +00:00
parent 34f4551894
commit d0b1312bbe
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
PW/pw_restart.f90
View File

@ -2535,6 +2535,7 @@ MODULE pw_restart
IF ( nspin == 2 ) THEN
!
ispin = 1
evc=(0.0_DP, 0.0_DP)
!
! ... no need to read isk here: they are read from band structure
! ... and correctly distributed across pools in read_file
@ -2559,6 +2560,7 @@ MODULE pw_restart
!
ispin = 2
ik_eff = ik + num_k_points
evc=(0.0_DP, 0.0_DP)
!
! ... no need to read isk here (see above why)
!isk(ik_eff) = 2
@ -2585,6 +2587,7 @@ MODULE pw_restart
! ... no need to read isk here (see above why)
!isk(ik) = 1
!
evc=(0.0_DP, 0.0_DP)
IF ( noncolin ) THEN
!
DO ipol = 1, npol
@ -2615,8 +2618,6 @@ MODULE pw_restart
!
END IF
!
evc = 0.0d0
!
CALL read_wfc( iunout, ik, nkstot, kunit, ispin, nspin, &
evc, npw_g, nbnd, igk_l2g_kdip(:,ik-iks+1), &
ngk(ik-iks+1), filename, scalef )