scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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:
giannozz 2010-02-13 09:35:33 +00:00
parent da3f938442
commit 53d957de73
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
GIPAW/gipaw_module.f90
View File

@ -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

8
GIPAW/symmetrize_field.f90
View File

@ -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