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 for meta_gga w/o doublegrid

This commit is contained in:
Stefano de Gironcoli 2018-01-03 13:04:57 +01:00
parent abba737d95
commit 86d479c907
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
PW/src/set_vrs.f90
View File

@ -101,12 +101,11 @@ subroutine interpolate_vrs ( nrxx, nspin, doublegrid, kedtau, kedtaur, vrs )
!
! ... interpolate it on the smooth mesh if necessary
!
if (doublegrid) then
do is = 1, nspin
call fft_interpolate_real(dfftp, vrs (1, is), dffts, vrs (1, is))
if (dft_is_meta()) call fft_interpolate_real(dfftp, kedtaur(1,is),dffts, kedtau(1,is))
enddo
endif
do is = 1, nspin
if (doublegrid) call fft_interpolate_real(dfftp, vrs (1, is), dffts, vrs (1, is))
if (dft_is_meta()) call fft_interpolate_real(dfftp, kedtaur(1,is),dffts, kedtau(1,is))
enddo
return
end subroutine interpolate_vrs