Fixed omission from patch 7732

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7733 c92efa57-630b-4861-b058-cf58834340f0
2011-05-02 15:46:23 +00:00 · 2011-05-02 15:46:23 +00:00 · c1587b2e40
parent f4133c0d63
commit c1587b2e40
1 changed files with 3 additions and 0 deletions
--- a/TDDFPT/src/lr_apply_liouvillian.f90
+++ b/TDDFPT/src/lr_apply_liouvillian.f90
@ -101,7 +101,10 @@ subroutine lr_apply_liouvillian( evc1, evc1_new, sevc1_new, interaction )
        if ( tqr ) then
         call newq_r(dvrs,d_deeq,.true.)
        else
+         ALLOCATE( psic(nrxx) )
+         psic(:)=(0.0d0,0.0d0)
         call newq(dvrs,d_deeq,.true.)
+         DEALLOCATE( psic )
        endif
       endif
       call add_paw_to_deeq(d_deeq)