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