pf_broadcast Subroutine

  1. pf_comm.f90
  2. pf_mod_comm
  3. pf_broadcast

public subroutine pf_broadcast(pf, y, nvar, root)

Subroutine to broadcast the initial condition to all processors

Arguments

Type IntentOptional AttributesName
type(pf_pfasst_t), intent(inout) :: pf
real(kind=pfdp), intent(in) :: y(nvar)
integer, intent(in) :: nvar
integer, intent(in) :: root

Calls

proc~~pf_broadcast~~CallsGraph proc~pf_broadcast pf_broadcast start_timer start_timer proc~pf_broadcast->start_timer end_timer end_timer proc~pf_broadcast->end_timer

Called by

proc~~pf_broadcast~~CalledByGraph proc~pf_broadcast pf_broadcast proc~pf_block_run pf_block_run proc~pf_block_run->proc~pf_broadcast proc~pf_pfasst_run pf_pfasst_run proc~pf_pfasst_run->proc~pf_block_run

Contents

Source Code

pf_broadcast

Source Code

  subroutine pf_broadcast(pf, y, nvar, root)
    type(pf_pfasst_t), intent(inout) :: pf
    integer,           intent(in)    :: nvar, root
    real(pfdp)  ,      intent(in)    :: y(nvar)
    integer :: ierror
    call start_timer(pf, TBROADCAST)
    if(pf%debug) print *,'beginning broadcast'
    call pf%comm%broadcast(pf, y, nvar, root, ierror)
    if (ierror /= 0) then
       print *, pf%rank, 'warning:  error during broadcast', ierror
       stop "pf_parallel:pf_broadcast"
    endif
    call end_timer(pf, TBROADCAST)
    if(pf%debug)print *,'ending broadcast'
  end subroutine pf_broadcast