mirror of https://gitlab.com/QEF/q-e.git
Forgetten in testerday commit
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6404 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
da3f938442
commit
53d957de73
|
@ -337,7 +337,7 @@ CONTAINS
|
||||||
USE constants, ONLY : degspin, pi
|
USE constants, ONLY : degspin, pi
|
||||||
USE paw_gipaw, ONLY : paw_recon, paw_nkb, paw_vkb, paw_becp, &
|
USE paw_gipaw, ONLY : paw_recon, paw_nkb, paw_vkb, paw_becp, &
|
||||||
read_recon, read_recon_paratec, set_paw_upf
|
read_recon, read_recon_paratec, set_paw_upf
|
||||||
USE symme, ONLY : nsym, s
|
USE symm_base, ONLY : nsym, s
|
||||||
USE uspp_param, ONLY : upf
|
USE uspp_param, ONLY : upf
|
||||||
USE mp_global, ONLY : inter_pool_comm
|
USE mp_global, ONLY : inter_pool_comm
|
||||||
USE mp, ONLY : mp_max, mp_min
|
USE mp, ONLY : mp_max, mp_min
|
||||||
|
|
|
@ -18,7 +18,8 @@ SUBROUTINE symmetrize_field(field, iflag)
|
||||||
!
|
!
|
||||||
USE kinds, ONLY : DP
|
USE kinds, ONLY : DP
|
||||||
USE cell_base, ONLY : at, bg
|
USE cell_base, ONLY : at, bg
|
||||||
USE symme, ONLY : s, nsym,crys_to_cart,cart_to_crys
|
USE symm_base, ONLY : s, nsym
|
||||||
|
USE symme, ONLY : crys_to_cart,cart_to_crys
|
||||||
USE pwcom
|
USE pwcom
|
||||||
USE gipaw_module
|
USE gipaw_module
|
||||||
|
|
||||||
|
@ -67,7 +68,7 @@ SUBROUTINE psymmetrize_field(field, iflag)
|
||||||
USE kinds, ONLY : DP
|
USE kinds, ONLY : DP
|
||||||
USE fft_base, ONLY : dfftp, grid_gather, grid_scatter
|
USE fft_base, ONLY : dfftp, grid_gather, grid_scatter
|
||||||
USE mp_global, ONLY : me_pool
|
USE mp_global, ONLY : me_pool
|
||||||
USE symme, ONLY : s, nsym
|
USE symm_base, ONLY : s, nsym
|
||||||
USE pwcom
|
USE pwcom
|
||||||
USE gipaw_module
|
USE gipaw_module
|
||||||
|
|
||||||
|
@ -107,7 +108,8 @@ subroutine syme2 (dvsym, iflag)
|
||||||
!
|
!
|
||||||
!
|
!
|
||||||
use kinds, only : DP
|
use kinds, only : DP
|
||||||
USE symme, ONLY : s, nsym, ftau, crys_to_cart
|
USE symm_base, ONLY : s, nsym, ftau
|
||||||
|
USE symme, ONLY : crys_to_cart
|
||||||
use pwcom
|
use pwcom
|
||||||
implicit none
|
implicit none
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue