MPI_Bcast_Dble_0 Subroutine

subroutine MPI_Bcast_Dble_0(comm, data, root)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: comm
real(kind=8), intent(in) :: data
integer, intent(in), optional :: root

Calls

proc~~mpi_bcast_dble_0~~CallsGraph proc~mpi_bcast_dble_0 MPI_Bcast_Dble_0 error_mpi error_mpi proc~mpi_bcast_dble_0->error_mpi mpi_bcast mpi_bcast proc~mpi_bcast_dble_0->mpi_bcast

Source Code

subroutine MPI_Bcast_Dble_0(comm,data,root)
  integer,intent(in)          :: comm
  real(8),intent(in)          :: data
  integer,intent(in),optional :: root
  rank=0;if(present(root))rank=root
  if(comm==MPI_COMM_NULL)return
  call MPI_BCAST(data,1,MPI_DOUBLE_PRECISION,rank,comm,ierr)
  call Error_MPI(sub='MPI_Bcast_Dble_0')
end subroutine MPI_Bcast_Dble_0