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_IOGetNonDimVars(cf,rc)result(nondim_vars)type(FileMetadata),intent(inout)::cfinteger,intent(out),optional::rctype(StringVector)::nondim_varstype(StringVariableMap),pointer::varstype(StringVariableMapIterator)::itertype(StringIntegerMap),pointer::dimsinteger,pointer::dimsize=>null()character(len=:),pointer::namedims=>cf%get_dimensions()vars=>cf%get_variables()iter=vars%begin()do while(iter/=vars%end())name=>iter%key()dimsize=>dims%at(trim(name))if(.not.associated(dimsize))call nondim_vars%push_back(trim(name))if(associated(dimsize))nullify(dimsize)call iter%next()end do_RETURN(ESMF_SUCCESS)end function MAPL_IOGetNonDimVars