broadcast_character Subroutine

private subroutine broadcast_character(char)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(inout) :: char

Contents

Source Code


Source Code

  subroutine broadcast_character (char)
    implicit none
    character(*), intent (in out) :: char
# ifdef MPI
    integer :: ierror
!$OMP MASTER
    call time_message(.false., time_mp_collectives, ' MPI Collectives')
!$OMP END MASTER
    call mpi_bcast (char, len(char), MPI_CHARACTER, 0, mp_comm, ierror)
!$OMP MASTER
    call time_message(.false., time_mp_collectives, ' MPI Collectives')
!$OMP END MASTER
# endif
  end subroutine broadcast_character