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))
       !