From e4dcec88b01c8f8e22ed1383f510ef12d794bcd5 Mon Sep 17 00:00:00 2001
From: cavazzon <cavazzon@c92efa57-630b-4861-b058-cf58834340f0>
Date: Sat, 12 Apr 2008 17:27:50 +0000
Subject: [PATCH] - reduce replaced with mp_sum

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4795 c92efa57-630b-4861-b058-cf58834340f0
---
 PP/pw2wannier90.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/PP/pw2wannier90.f90 b/PP/pw2wannier90.f90
index d77470847..f5e6ba066 100644
--- a/PP/pw2wannier90.f90
+++ b/PP/pw2wannier90.f90
@@ -1105,6 +1105,8 @@ subroutine compute_amn
    use wannier
    USE ions_base,       only : nat, ntyp => nsp, ityp, tau
    USE uspp_param,      ONLY : upf
+   use mp_global,       only : intra_pool_comm
+   use mp,              only : mp_sum
 
    implicit none