Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
subroutine ProvidedServiceSet(provider_list,state,rc)type(ProvidedServiceItemVector),intent(IN)::provider_listtype(ESMF_State),intent(IN)::stateinteger,optional,intent(out)::rcinteger::statustype(ProvidedServiceItemVectorIterator)::itertype(ProvidedServiceType),pointer::item_ASSERT(provider_list%size()>0,'provider_list should not be empty')iter=provider_list%begin()! loop over provided servicesdo 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