broadcast_results Subroutine

  subroutine broadcast_results
    use mp, only: proc0, broadcast
    use species, only: nspec
    use theta_grid, only: ntgrid
    implicit none
    call broadcast (lmax)
    call broadcast (ng2)
    call broadcast (nlambda)
    call broadcast (nxi)

    if (.not. proc0) then
       allocate(speed(negrid,nspec))
       allocate(w_maxw(negrid))
       allocate(energy_maxw(negrid))
       allocate(speed_maxw(negrid))
       allocate (al(nlambda))
       allocate (wl(-ntgrid:ntgrid,nlambda))
       allocate (jend(-ntgrid:ntgrid))
       allocate (forbid(-ntgrid:ntgrid,nlambda))
       allocate (is_ttp(-ntgrid:ntgrid,nlambda))
       allocate (is_bounce_point(-ntgrid:ntgrid,nlambda))
       allocate (can_be_ttp(nlambda))
       allocate (xx(ng2))
       allocate (xi(2*nlambda, -ntgrid:ntgrid))
       allocate (ixi_to_il(2*nlambda, -ntgrid:ntgrid))
       allocate (ixi_to_isgn(2*nlambda, -ntgrid:ntgrid))
       allocate (wxi(2*nlambda, -ntgrid:ntgrid))
    end if

    call broadcast (xx)

    call broadcast (al)
    call broadcast (jend)
 
    call broadcast (energy_maxw)
    call broadcast (speed)
    call broadcast (speed_maxw)
    call broadcast (w_maxw)

    call broadcast(wl)
    call broadcast(forbid)
    call broadcast(is_ttp)
    call broadcast(is_bounce_point)
    call broadcast(can_be_ttp)

    call broadcast(xi)
    call broadcast(ixi_to_il)
    call broadcast(ixi_to_isgn)
    call broadcast(wxi)
    call broadcast (sgn)
  end subroutine broadcast_results