comms_gatherv_cmplx_2 Subroutine

  1. comms.F90
  2. w90_comms
  3. comms_gatherv_cmplx_2

private subroutine comms_gatherv_cmplx_2(array, localcount, rootglobalarray, counts, displs)

Gather complex data to root node (for arrays of rank 2)

Arguments

Type IntentOptional AttributesName
complex(kind=dp), intent(inout), dimension(:, :):: array
integer, intent(in) :: localcount
complex(kind=dp), intent(inout), dimension(:, :):: rootglobalarray
integer, intent(in), dimension(num_nodes):: counts
integer, intent(in), dimension(num_nodes):: displs

Calls

proc~~comms_gatherv_cmplx_2~~CallsGraph proc~comms_gatherv_cmplx_2 comms_gatherv_cmplx_2 zcopy zcopy proc~comms_gatherv_cmplx_2->zcopy

Called by

proc~~comms_gatherv_cmplx_2~~CalledByGraph proc~comms_gatherv_cmplx_2 comms_gatherv_cmplx_2 interface~comms_gatherv comms_gatherv interface~comms_gatherv->proc~comms_gatherv_cmplx_2 proc~k_path k_path proc~k_path->interface~comms_gatherv proc~k_slice k_slice proc~k_slice->interface~comms_gatherv

Contents

Source Code

comms_gatherv_cmplx_2

Source Code

  subroutine comms_gatherv_cmplx_2(array, localcount, rootglobalarray, counts, displs)
    !! Gather complex data to root node (for arrays of rank 2)
    implicit none

    complex(kind=dp), dimension(:, :), intent(inout)   :: array
    integer, intent(in)                               :: localcount
    complex(kind=dp), dimension(:, :), intent(inout)   :: rootglobalarray
    integer, dimension(num_nodes), intent(in)         :: counts
    integer, dimension(num_nodes), intent(in)         :: displs

#ifdef MPI
    integer :: error

    call MPI_gatherv(array, localcount, MPI_double_complex, rootglobalarray, counts, &
                     displs, MPI_double_complex, root_id, mpi_comm_world, error)

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

#else
    call zcopy(localcount, array, 1, rootglobalarray, 1)
#endif

    return

  end subroutine comms_gatherv_cmplx_2