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

New version from M. Marsili. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@10556 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
puma 2013-10-25 12:09:51 +00:00
parent 37f58bbf9b
commit d6c8cae5ed
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
GWW/pw4gww/wannier_bse.f90
View File

@ -174,7 +174,7 @@ subroutine wannier_bse(ispin,w_wfcs,o_mat)
psic(1:fc%nrxxt)=ww_prod(1:fc%nrxxt)
CALL cft3t(fc, psic, fc%nr1t, fc%nr2t, fc%nr3t, fc%nrx1t, fc%nrx2t, fc%nrx3t, -2 )
ww_prodg(1:fc%npwt) = psic(fc%nlt(1:fc%npwt))
!if(fc%gstart_t==2) ww_prodg(1)=dble(ww_prodg(1))! DEBUG MI SA CHE E SBAGLIATO
if(fc%dual_t==4.d0) then
ww_prodg2(:)=ww_prodg(:)
@ -239,6 +239,8 @@ subroutine wannier_bse(ispin,w_wfcs,o_mat)
endif
allocate(z(numw_prod))
z(1:numw_prod)=0.d0
do iv=1, num_nbndv(ispin)
do jv=1, num_nbndv(ispin)