get_fragment_count Subroutine

  1. mimic_data_collect.f90
  2. mimic_data_collect
  3. get_fragment_count

public subroutine get_fragment_count(this, frag_count)

get the number of fragment per each of the client code

Arguments

TypeIntentOptionalAttributesName
class(mimic_communicator), intent(inout) :: this
integer, intent(inout), dimension(:):: frag_count

number of fragments per code, return value

Contents

Source Code

get_fragment_count

Source Code

subroutine get_fragment_count(this, frag_count)

    class(mimic_communicator), intent(inout) :: this
    !> number of fragments per code, return value
    integer, dimension(:), intent(inout) :: frag_count

    integer(kind=i32), target :: code_fragment_count
    integer :: n_code

    do n_code = 1, this%num_clients
        call this%send_command(MCL_SEND_NUM_FRAGMENTS, n_code)
        call mcl_receive(code_fragment_count, 1, MCL_DATA, n_code)

        frag_count(n_code) = code_fragment_count
    end do

end subroutine get_fragment_count