From 812a9e966279f058be0ed3d36ece1d13bec02acb Mon Sep 17 00:00:00 2001
From: dalcorso <dalcorso@c92efa57-630b-4861-b058-cf58834340f0>
Date: Thu, 25 Jul 2013 09:53:37 +0000
Subject: [PATCH] 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
---
 PHonon/PH/solve_e.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/PHonon/PH/solve_e.f90 b/PHonon/PH/solve_e.f90
index cf1681414..5461a93a5 100644
--- a/PHonon/PH/solve_e.f90
+++ b/PHonon/PH/solve_e.f90
@@ -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)