!
! Copyright (C) 2001-2004 PWSCF group
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
!-----------------------------------------
subroutine deallocate_phq
!----------========-----------------------
!
!  deallocates the variables allocated by allocate_phq
!
  use phcom
  USE becmod, ONLY: becp
  USE wavefunctions_module,  ONLY: evc
  use el_phon


  if (lgamma) then
     if(associated(evq)) nullify(evq)
     if(associated(igkq)) nullify(igkq)
  else
     if(associated(evq)) deallocate(evq)
     if(associated(igkq)) deallocate(igkq)
  end if
  
  if(allocated(dvpsi)) deallocate (dvpsi)    
  if(allocated(dpsi)) deallocate ( dpsi)    
  !
  if(allocated(vlocq)) deallocate (vlocq)
  if(allocated(dmuxc)) deallocate (dmuxc)
  !
  if(allocated(eigqts)) deallocate (eigqts)
  if(allocated(rtau)) deallocate (rtau)
  if(associated(u)) deallocate (u)
  if(associated(ubar)) deallocate (ubar)
  if(allocated(dyn)) deallocate (dyn)
  if(allocated(dyn00)) deallocate (dyn00)
  if(allocated(w2)) deallocate (w2)
  if(associated(t)) deallocate (t)
  if(associated(tmq)) deallocate (tmq)

  if(allocated(npert)) deallocate (npert)    
  if(allocated(zstareu)) deallocate (zstareu)    
  if(allocated(zstareu0)) deallocate (zstareu0)    
  if(allocated(zstarue)) deallocate (zstarue)    
  if(allocated(zstarue0)) deallocate (zstarue0)    

  if(allocated(int1)) deallocate (int1)    
  if(allocated(int2)) deallocate (int2)
  if(allocated(int3)) deallocate (int3)
  if(allocated(int4)) deallocate (int4)
  if(allocated(int5)) deallocate (int5)
  if(allocated(dpqq)) deallocate (dpqq)
  if(allocated(alphasum)) deallocate (alphasum)
  if(allocated(this_dvkb3_is_on_file)) deallocate (this_dvkb3_is_on_file)    


  if(allocated(this_pcxpsi_is_on_file)) deallocate (this_pcxpsi_is_on_file)
  if(allocated(alphap))    deallocate (alphap)    
  if(allocated(becp1))     deallocate(becp1) 
  if(allocated(becp))      deallocate(becp)
  if(allocated(el_ph_mat)) deallocate (el_ph_mat)    

  if(allocated(drc)) deallocate(drc)

  if(allocated(dvxc_rr)) deallocate (dvxc_rr)    
  if(allocated(dvxc_sr)) deallocate (dvxc_sr)    
  if(allocated(dvxc_ss)) deallocate (dvxc_ss)    
  if(allocated(dvxc_s)) deallocate (dvxc_s)    
  if(allocated(grho)) deallocate (grho)  

  return
end subroutine deallocate_phq