Bug fix: epsil + paw was not working with pool parallelization.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@10401 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2013-07-25 09:53:37 +00:00
parent 46aa2945e1
commit 812a9e9662
1 changed files with 1 additions and 0 deletions

View File

@ -340,6 +340,7 @@ subroutine solve_e
! for the three polarizations - symmetrize it
!
call mp_sum ( dvscfout, inter_pool_comm )
IF (okpaw) call mp_sum ( dbecsum, inter_pool_comm )
if (.not.lgamma_gamma) then
call psyme (dvscfout)
IF ( noncolin.and.domag ) CALL psym_dmage(dvscfout)