!
! Copyright (C) 2001-2003 PWSCF group
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
!-----------------------------------------------------------------------
subroutine bcast_ph_input
  !-----------------------------------------------------------------------
  !
  !     In this routine the first processor send the input to all
  !     the other processors
  !
  !
#ifdef __PARA
#include "f_defs.h"

  use pwcom
  use phcom
  use mp, only: mp_bcast
  use io_files
  USE control_flags, only: iverbosity, reduce_io

  implicit none
  integer :: root = 0
  !
  ! logicals
  !
  call mp_bcast (lgamma, root)
  call mp_bcast (epsil, root)
  call mp_bcast (trans, root)
  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)
  call mp_bcast (ephwanout, root) ! @FG
  call mp_bcast (tshuffle, root)  !
  call mp_bcast (tshuffle2, root) !
  call mp_bcast (elecselfen, root)!
  call mp_bcast (phonselfen, root)!
  call mp_bcast (epbread, root)   !
  call mp_bcast (epbwrite, root)  !
  call mp_bcast (phinterp, root)  !
  call mp_bcast (elinterp, root)  !
  call mp_bcast (tphases, root)   !
  call mp_bcast (epstrict, root)  !
  call mp_bcast (fsthick, root)   !
  call mp_bcast (eptemp, root)    !
  call mp_bcast (wmin, root)      !
  call mp_bcast (wmax, root)      !
  call mp_bcast (epwread, root)   !
  call mp_bcast (epwwrite, root)  !
  call mp_bcast (specfun, root)   !
  !
  ! integers
  !
  call mp_bcast (niter_ph, root)
  call mp_bcast (nmix_ph, root)
  call mp_bcast (maxirr, root)
  call mp_bcast (iverbosity, root)
  call mp_bcast (ngaussw, root)     ! @FG
  call mp_bcast (nw, root)          ! 
  call mp_bcast (selfen_type, root) ! 
  call mp_bcast (nbndsub, root)     ! 
  call mp_bcast (nbndskip, root)    ! 
  !
  ! real*8
  !
  call mp_bcast (tr2_ph, root)
  call mp_bcast (amass, root)
  call mp_bcast (alpha_mix, root)
  call mp_bcast (xq, root)
  call mp_bcast (degaussw, root)  ! @FG
  !
  ! characters
  !
  call mp_bcast (title_ph, root)
  call mp_bcast (filelph, root)
  call mp_bcast (fildyn, root)
  call mp_bcast (fildvscf, root)
  call mp_bcast (fildrho, root)
  call mp_bcast (tmp_dir, root)
  call mp_bcast (prefix, root)
  !
  call mp_bcast (filkf, root)     ! @FG
  call mp_bcast (filqf, root)     ! @FG
  call mp_bcast (filukk, root)    ! @FG
  call mp_bcast (filukq, root)    ! @FG
  call mp_bcast (fildvscf0, root) !
  call mp_bcast (dvscf_dir, root)
#endif
  return
end subroutine bcast_ph_input