MPI_Bcast_Cmplx_1 Subroutine

subroutine MPI_Bcast_Cmplx_1(comm, data, root)

Arguments

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

Calls

proc~~mpi_bcast_cmplx_1~~CallsGraph proc~mpi_bcast_cmplx_1 MPI_Bcast_Cmplx_1 error_mpi error_mpi proc~mpi_bcast_cmplx_1->error_mpi mpi_bcast mpi_bcast proc~mpi_bcast_cmplx_1->mpi_bcast

Source Code

subroutine MPI_Bcast_Cmplx_1(comm,data,root)
  integer,intent(in)          :: comm
  complex(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,size(data),MPI_DOUBLE_COMPLEX,rank,comm,ierr)
  call Error_MPI(sub='MPI_Bcast_Cmplx_1')
end subroutine MPI_Bcast_Cmplx_1