comms_send_real Subroutine

  1. comms.F90
  2. w90_comms
  3. comms_send_real

private subroutine comms_send_real(array, size, to)

Send real array to specified node

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(inout) :: array
integer, intent(in) :: size
integer, intent(in) :: to

Called by

proc~~comms_send_real~~CalledByGraph proc~comms_send_real comms_send_real interface~comms_send comms_send interface~comms_send->proc~comms_send_real

Contents

Source Code

comms_send_real

Source Code

  subroutine comms_send_real(array, size, to)
    !! Send real array to specified node
    implicit none

    real(kind=dp), intent(inout) :: array
    integer, intent(in)    :: size
    integer, intent(in)    :: to

#ifdef MPI
    integer :: error

    call MPI_send(array, size, MPI_double_precision, to, &
                  mpi_send_tag, mpi_comm_world, error)

    if (error .ne. MPI_success) then
      call io_error('Error in comms_send_real')
    end if
#endif

    return

  end subroutine comms_send_real