gather_fragment_count Subroutine

  1. mimic_data_collect.f90
  2. mimic_data_collect
  3. gather_fragment_count

public subroutine gather_fragment_count(this, frags_pcode)

gather fragment count from all clients

Arguments

TypeIntentOptionalAttributesName
class(mimic_communicator), intent(inout) :: this
integer, intent(out), dimension(:), target:: frags_pcode

Integer data to gather

Contents

Source Code

gather_fragment_count

Source Code

subroutine gather_fragment_count(this, frags_pcode)

    class(mimic_communicator), intent(inout) :: this
    !> Integer data to gather
    integer, dimension(:), target, intent(out) :: frags_pcode

    call this%gather_int(frags_pcode, MCL_SEND_NUM_FRAGMENTS)

end subroutine gather_fragment_count