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

Bugfix, attempt to initialise an unallocated variable in exx.f90 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8806 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sbinnie 2012-03-20 19:10:17 +00:00
parent da16185ebc
commit 737267f421
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
PW/src/exx.f90
View File

@ -960,6 +960,7 @@ endif
temppsic(:) = ( 0.D0, 0.D0 )
IF(gamma_only) THEN
prod_tot(:) = (0.d0,0.d0)
CALL exx_grid_convert( psi(:,im), npw, exx_fft_g2r, psi_t,&
& 1, igkt )
temppsic(exx_fft_g2r%nlt(1:exx_fft_g2r%npwt)) =&
@ -973,7 +974,7 @@ endif
CALL invfft ('Wave', temppsic, dffts)
ENDIF
prod_tot(:) = (0.d0,0.d0)
result(:) = (0.d0,0.d0)
DO iqi=1,nqi