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 RequestedServiceGet(request_list,service,bundle,rc)type(RequestedServiceItemVector),intent(IN)::request_listcharacter(len=*),intent(IN)::servicetype(ESMF_FieldBundle),intent(OUT)::bundleinteger,optional,intent(out)::rclogical::foundtype(RequestedServiceItemVectorIterator)::itertype(RequestedServiceType),pointer::item_ASSERT(request_list%size()>0,'request_list should not be empty')found=.false.iter=request_list%begin()! loop over requested servicesdo while(iter/=request_list%end())item=>iter%get()if(item%service_name==service)thenfound=.true.bundle=item%bundleexit end if END DO_ASSERT(found,'No match found for service')_RETURN(_SUCCESS)end subroutine RequestedServiceGet