mirror of https://gitlab.com/QEF/q-e.git
Minor bug in TDDFPT. revc0_all mistakenly given the size of the potential grid, not the smooth grid.
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9492 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
2b0fb4dbd2
commit
c993a5c5f4
|
@ -257,7 +257,6 @@ SUBROUTINE lr_read_wf()
|
|||
! The modifications to read also the virtual orbitals
|
||||
!
|
||||
USE control_ph, ONLY : nbnd_occ
|
||||
USE fft_base, ONLY : dfftp
|
||||
USE lr_variables, ONLY : check_all_bands_gamma,&
|
||||
& check_density_gamma,&
|
||||
& check_vector_gamma
|
||||
|
@ -274,7 +273,7 @@ SUBROUTINE lr_read_wf()
|
|||
! First pretend everything is normal
|
||||
nbnd=nbnd_total
|
||||
!
|
||||
ALLOCATE(revc_all(dfftp%nnr,nbnd,nks))
|
||||
ALLOCATE(revc_all(dffts%nnr,nbnd,nks))
|
||||
ALLOCATE(evc_all(npwx,nbnd,nks))
|
||||
ALLOCATE(sevc_all(npwx,nbnd,nks))
|
||||
!
|
||||
|
|
Loading…
Reference in New Issue