parallel_obj_Bcast_real_0d Subroutine

private impure subroutine parallel_obj_Bcast_real_0d(this, A)

MPI Broadcast operation from root rank.

Type Bound

parallel_obj

Arguments

Type IntentOptional Attributes Name
class(parallel_obj), intent(inout) :: this

Parallel object
real(kind=wp), intent(inout) :: A

Send buffer

Calls

proc~~parallel_obj_bcast_real_0d~~CallsGraph proc~parallel_obj_bcast_real_0d parallel_obj%parallel_obj_Bcast_real_0d mpi_bcast mpi_bcast proc~parallel_obj_bcast_real_0d->mpi_bcast

Called by

proc~~parallel_obj_bcast_real_0d~~CalledByGraph proc~parallel_obj_bcast_real_0d parallel_obj%parallel_obj_Bcast_real_0d none~bcast parallel_obj%Bcast none~bcast->proc~parallel_obj_bcast_real_0d proc~hdf5_obj_open hdf5_obj%hdf5_obj_Open proc~hdf5_obj_open->none~bcast

Source Code

    impure subroutine parallel_obj_Bcast_real_0d(this,A)
      !> MPI Broadcast operation from root rank.
      implicit none
      class(parallel_obj), intent(inout) :: this                               !! Parallel object
      real(wp),            intent(inout) :: A                                  !! Send buffer
      ! Work variables
      integer :: ierr

      call MPI_BCAST(A,1,this%REAL_WP,this%RootRank-1,this%comm%g,ierr)

      return
    end subroutine parallel_obj_Bcast_real_0d