mpi_allgatherv_inplace_i32 Subroutine

public subroutine mpi_allgatherv_inplace_i32(ctx, values, counts, displacements)

mpi_allgatherv_inplace_real_dp の 32 bit 整数版。

Arguments

Type IntentOptional Attributes Name
type(mpi_context), intent(in) :: ctx
integer(kind=i32), intent(inout) :: values(*)
integer(kind=i32), intent(in) :: counts(:)
integer(kind=i32), intent(in) :: displacements(:)

Called by

proc~~mpi_allgatherv_inplace_i32~~CalledByGraph proc~mpi_allgatherv_inplace_i32 mpi_allgatherv_inplace_i32 proc~core_update_state_impl core_update_state_impl proc~core_update_state_impl->proc~mpi_allgatherv_inplace_i32

Source Code

  subroutine mpi_allgatherv_inplace_i32(ctx, values, counts, displacements)
    type(mpi_context), intent(in) :: ctx
    integer(i32), intent(inout) :: values(*)
    integer(i32), intent(in) :: counts(:), displacements(:)
#ifdef USE_MPI
    integer :: ierr

    if (.not. ctx%enabled .or. ctx%size <= 1_i32) return
    call MPI_Allgatherv( &
      MPI_IN_PLACE, 0, MPI_DATATYPE_NULL, values, int(counts), int(displacements), MPI_INTEGER4, &
      MPI_COMM_WORLD, ierr &
      )
#endif
  end subroutine mpi_allgatherv_inplace_i32