comms_recv_cmplx Subroutine

  1. comms.F90
  2. w90_comms
  3. comms_recv_cmplx

private subroutine comms_recv_cmplx(array, size, from)

Receive complex array from specified node

Arguments

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

Called by

proc~~comms_recv_cmplx~~CalledByGraph proc~comms_recv_cmplx comms_recv_cmplx interface~comms_recv comms_recv interface~comms_recv->proc~comms_recv_cmplx

Contents

Source Code

comms_recv_cmplx

Source Code

  subroutine comms_recv_cmplx(array, size, from)
    !! Receive complex array from specified node
    implicit none

    complex(kind=dp), intent(inout) :: array
    integer, intent(in)    :: size
    integer, intent(in)    :: from

#ifdef MPI
    integer :: error

    integer :: status(MPI_status_size)

    call MPI_recv(array, size, MPI_double_complex, from, &
                  mpi_send_tag, mpi_comm_world, status, error)

    if (error .ne. MPI_success) then
      call io_error('Error in comms_recv_cmplx')
    end if

#endif

    return

  end subroutine comms_recv_cmplx