mirror of https://gitlab.com/QEF/q-e.git
69 lines
2.2 KiB
Fortran
69 lines
2.2 KiB
Fortran
!-----------------------------------------
|
|
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
|