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 paw_gipaw, ONLY : paw_recon, paw_nkb, paw_vkb, paw_becp, &
|
||||
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 mp_global, ONLY : inter_pool_comm
|
||||
USE mp, ONLY : mp_max, mp_min
|
||||
|
|
|
@ -18,7 +18,8 @@ SUBROUTINE symmetrize_field(field, iflag)
|
|||
!
|
||||
USE kinds, ONLY : DP
|
||||
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 gipaw_module
|
||||
|
||||
|
@ -67,7 +68,7 @@ SUBROUTINE psymmetrize_field(field, iflag)
|
|||
USE kinds, ONLY : DP
|
||||
USE fft_base, ONLY : dfftp, grid_gather, grid_scatter
|
||||
USE mp_global, ONLY : me_pool
|
||||
USE symme, ONLY : s, nsym
|
||||
USE symm_base, ONLY : s, nsym
|
||||
USE pwcom
|
||||
USE gipaw_module
|
||||
|
||||
|
@ -107,7 +108,8 @@ subroutine syme2 (dvsym, iflag)
|
|||
!
|
||||
!
|
||||
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
|
||||
implicit none
|
||||
|
||||
|
|
Loading…
Reference in New Issue