MAPL_BalanceGet Subroutine

public subroutine MAPL_BalanceGet(Handle, BalLen, BufLen, Passes, Comm, rc)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: Handle
integer, intent(out), optional :: BalLen
integer, intent(out), optional :: BufLen
integer, intent(out), optional :: Passes
integer, intent(out), optional :: Comm
integer, intent(out), optional :: rc

Calls

proc~~mapl_balanceget~~CallsGraph proc~mapl_balanceget MAPL_BalanceGet interface~mapl_assert MAPL_Assert proc~mapl_balanceget->interface~mapl_assert proc~mapl_return MAPL_Return proc~mapl_balanceget->proc~mapl_return at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Source Code

  subroutine MAPL_BalanceGet(Handle, BalLen, BufLen, Passes, Comm, rc)
    integer,           intent(IN ) :: Handle
    integer, optional, intent(OUT) :: BalLen, BufLen, Passes, Comm
    integer, optional, intent(OUT) :: rc

    _ASSERT(Handle>=0, 'Handle is less than 0')
    _ASSERT(Handle<=MAX_NUM_STRATEGIES,'Handle is greater than MAX_NUM_STATEGIES')

    _ASSERT(associated(THE_STRATEGIES(Handle)%NOP),'needs informative message')

    if(present(BalLen)) &
         BalLen = THE_STRATEGIES(Handle)%BALANCED_LENGTH
    if(present(BufLen)) &
         BufLen = THE_STRATEGIES(Handle)%BUFFER_LENGTH
    if(present(Passes)) &
         Passes = THE_STRATEGIES(Handle)%PASSES
    if(present(Comm  )) &
         Comm   = THE_STRATEGIES(Handle)%COMM

    _RETURN(LDB_SUCCESS)
  end subroutine MAPL_BalanceGet