bug fixes in parallel execution

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1020 c92efa57-630b-4861-b058-cf58834340f0

PH/bcast_ph_input.f90

@@ -34,6 +34,8 @@ subroutine bcast_ph_input
   call mp_bcast (zue, root)
   call mp_bcast (reduce_io, root)
   call mp_bcast (elph, root)
+  call mp_bcast (lnscf, root)
+  call mp_bcast (ldisp, root)
   !
   ! integers
   !

PH/phonon.f90

@@ -19,6 +19,8 @@ program phonon
   USE io_global,  ONLY : stdout
   use pwcom
   use io_files
+  USE io_global, ONLY: ionode_id
+  USE mp, ONLY: mp_bcast
   USE ions_base,  ONLY : nat
   USE kinds, only : DP
   USE parser,           ONLY : int_to_char
@@ -137,6 +139,10 @@ program phonon
            zue = .false.
         end if
 
+        call mp_bcast (epsil, ionode_id)
+        call mp_bcast (zue, ionode_id)
+        call mp_bcast (lgamma, ionode_id)
+
         nks = nks_start
         xk(:,1:nks_start) = xk_start(:,1:nks_start)
         wk(1:nks_start) = wk_start(1:nks_start)

PH/phq_readin.f90

@@ -163,9 +163,11 @@ subroutine phq_readin
   if (nat_todo.ne.0.and.nrapp.ne.0) call errore ('phq_readin', &
        &' incompatible flags', 1)
   !
-  !    reads the q point
+  !    reads the q point (just if ldisp = .false.)
   !
-  read (5, *, err = 300, iostat = ios) (xq (ipol), ipol = 1, 3)
+  if (.not. ldisp) then
+     read (5, *, err = 300, iostat = ios) (xq (ipol), ipol = 1, 3)
+  end if
 300 call errore ('phq_readin', 'reading xq', abs (ios) )
   lgamma = xq (1) .eq.0.d0.and.xq (2) .eq.0.d0.and.xq (3) .eq.0.d0
   if ( (epsil.or.zue) .and..not.lgamma) call errore ('phq_readin', &