ServiceConnectionGet Subroutine

public subroutine ServiceConnectionGet(ITEM, SERVICE, PROVIDER, REQUESTER, RC)

Arguments

Type IntentOptional Attributes Name
type(ServiceConnectionType), intent(in) :: ITEM
character(len=*), intent(out), optional :: SERVICE
character(len=*), intent(out), optional :: PROVIDER
character(len=*), intent(out), optional :: REQUESTER
integer, intent(out), optional :: RC

Calls

proc~~serviceconnectionget~~CallsGraph proc~serviceconnectionget ServiceConnectionGet proc~mapl_return MAPL_Return proc~serviceconnectionget->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

Called by

proc~~serviceconnectionget~~CalledByGraph proc~serviceconnectionget ServiceConnectionGet proc~mapl_genericinitialize MAPL_GenericInitialize proc~mapl_genericinitialize->proc~serviceconnectionget

Source Code

  subroutine ServiceConnectionGet(item, &
            Service, Provider, Requester, RC)

    type (ServiceConnectionType), intent(IN)  :: ITEM
    character (len=*), optional, intent(  OUT) :: SERVICE
    character (len=*), optional, intent(  OUT) :: PROVIDER
    character (len=*), optional, intent(  OUT) :: REQUESTER
    integer,           optional, intent(  OUT) :: RC     ! Error code:
    
    if (present(Service)) then
       Service = item%Service_name
    end if

    if (present(Provider)) then
       Provider = item%Provider_name
    end if

    if (present(requester)) then
       requester = item%requester_name
    end if

    _RETURN(ESMF_SUCCESS)
  end subroutine ServiceConnectionGet