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
function MAPL_CFIOAddCollection(template)result(id)character(len=*),intent(in)::templateinteger::nlogical::foundtype(CFIOCollectionVectorIterator)::itertype(CFIOCollection),pointer::collectiontype(CFIOCollection)::cinteger::iditer=collections%begin()n=1! Is it a new collection?found=.false.do while(iter/=collections%end())collection=>iter%get()if(template==collection%template)thenfound=.true.exit end ifn=n+1call iter%next()end do if(.not.found)thenc=new_CFIOCollection(template)call collections%push_back(c)end ifid=nend function MAPL_CFIOAddCollection