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 make_GathervSpec(rc)result(spec)type(GathervSpec)::specinteger,optional,intent(out)::rcinteger::statustype(ArgParser)::parsertype(StringUnlimitedMap)::options class(*),pointer::optionparser=ArgParser()call add_cli_options(parser)options=parser%parse_args()option=>options%at('nx')_ASSERT(associated(option),'nx not found')call cast(option,spec%nx,_RC)option=>options%at('n_levs')_ASSERT(associated(option),'n_levs not found')call cast(option,spec%n_levs,_RC)option=>options%at('n_writers')_ASSERT(associated(option),'n_writers not found')call cast(option,spec%n_writers,_RC)option=>options%at('n_tries')_ASSERT(associated(option),'n_tries not found')call cast(option,spec%n_tries,_RC)_RETURN(_SUCCESS)end function make_GathervSpec