ProvidedServiceSet Subroutine

public subroutine ProvidedServiceSet(provider_list, state, rc)

Arguments

Type IntentOptional Attributes Name
type(providedServiceItemVector), intent(in) :: provider_list
type(ESMF_State), intent(in) :: state
integer, intent(out), optional :: rc

Calls

proc~~providedserviceset~~CallsGraph proc~providedserviceset ProvidedServiceSet esmf_stateget esmf_stateget proc~providedserviceset->esmf_stateget interface~mapl_assert MAPL_Assert proc~providedserviceset->interface~mapl_assert none~begin~71 providedServiceItemVector%begin proc~providedserviceset->none~begin~71 none~get~131 providedServiceItemVectorIterator%get proc~providedserviceset->none~get~131 none~next~66 providedServiceItemVectorIterator%next proc~providedserviceset->none~next~66 proc~mapl_return MAPL_Return proc~providedserviceset->proc~mapl_return proc~mapl_verify MAPL_Verify proc~providedserviceset->proc~mapl_verify 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 proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~providedserviceset~~CalledByGraph proc~providedserviceset ProvidedServiceSet proc~mapl_genericinitialize MAPL_GenericInitialize proc~mapl_genericinitialize->proc~providedserviceset

Source Code

  subroutine ProvidedServiceSet(provider_list, state, rc)
    type(ProvidedServiceItemVector), intent(IN) :: provider_list
    type(ESMF_State), intent(IN) :: state
    integer, optional, intent(out) :: rc
    
    integer :: status
    type (ProvidedServiceItemVectorIterator) :: iter
    type (ProvidedServiceType), pointer :: item
    
    _ASSERT(provider_list%size()>0,'provider_list should not be empty')
    
    iter = provider_list%begin()
    ! loop over provided services
    do while (iter /= provider_list%end())
       item => iter%get()
       call ESMF_StateGet(state, item%bundle_name, &
            item%bundle, rc=status)
       _VERIFY(status)
       call iter%next()
    end do

    _RETURN(_SUCCESS)
  end subroutine ProvidedServiceSet