Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(pf_pfasst_t), | intent(inout) | :: | pf | main pfasst structure |
||
real(kind=pfdp), | intent(in) | :: | y(nvar) | data to broadcast |
||
integer, | intent(in) | :: | nvar | size of data to broadcast |
||
integer, | intent(in) | :: | root | rank of broadcaster |
||
integer, | intent(inout) | :: | ierror | error flag |
subroutine pf_mpi_broadcast(pf, y, nvar, root,ierror)
type(pf_pfasst_t), intent(inout) :: pf !! main pfasst structure
integer, intent(in) :: nvar !! size of data to broadcast
real(pfdp), intent(in) :: y(nvar) !! data to broadcast
integer, intent(in) :: root !! rank of broadcaster
integer, intent(inout) :: ierror !! error flag
call mpi_bcast(y, nvar, myMPI_Datatype, root, pf%comm%comm, ierror)
end subroutine pf_mpi_broadcast