From 692f25e49780bfff4cf3a9167a880ee584c29f1e Mon Sep 17 00:00:00 2001
From: calandra <calandra@c92efa57-630b-4861-b058-cf58834340f0>
Date: Wed, 18 Jul 2012 16:16:19 +0000
Subject: [PATCH] Forgot to broadcast wan_index_dyn,

MCB



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

diff --git a/PHonon/PH/q_points_wannier.f90 b/PHonon/PH/q_points_wannier.f90
index 270683b7b..9f2d7eb99 100644
--- a/PHonon/PH/q_points_wannier.f90
+++ b/PHonon/PH/q_points_wannier.f90
@@ -50,6 +50,8 @@ SUBROUTINE q_points_wannier ( )
   CALL dfile_get_qlist(x_q, nqs, dvscf_star%ext, TRIM(dvscf_star%dir)//prefix, wan_index_dyn )
 
   call mp_bcast(x_q,ionode_id)
+  call mp_bcast(wan_index_dyn, ionode_id)
+  
   !
   ! Check if the Gamma point is one of the points and put
   !