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
2012-07-18 16:16:19 +00:00 · 2012-07-18 16:16:19 +00:00 · 692f25e497
parent c859c81921
commit 692f25e497
1 changed files with 2 additions and 0 deletions
--- 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
  !