- reduce replaced with mp_sum

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4795 c92efa57-630b-4861-b058-cf58834340f0
2008-04-12 17:27:50 +00:00 · 2008-04-12 17:27:50 +00:00 · e4dcec88b0
parent f2409b4684
commit e4dcec88b0
1 changed files with 2 additions and 0 deletions
--- 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