From c993a5c5f4cc457012fcc2fa1e4c87cfa12d6512 Mon Sep 17 00:00:00 2001
From: sbinnie <sbinnie@c92efa57-630b-4861-b058-cf58834340f0>
Date: Mon, 8 Oct 2012 15:09:17 +0000
Subject: [PATCH] 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
---
 TDDFPT/src/lr_read_wf.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/TDDFPT/src/lr_read_wf.f90 b/TDDFPT/src/lr_read_wf.f90
index 73cccb95c..5d1658dfc 100755
--- a/TDDFPT/src/lr_read_wf.f90
+++ b/TDDFPT/src/lr_read_wf.f90
@@ -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))
       !