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 get_var_attr_int64(this,var_name,attr_name,rc)result(attr_int64)integer(INT64)::attr_int64class(FileMetadataUtils),intent(inout)::thischaracter(len=*),intent(in)::var_namecharacter(len=*),intent(in)::attr_nameinteger,optional,intent(out)::rcinteger(INT64)::tmp(1)integer::statuscharacter(:),allocatable::fnametype(Attribute),pointer::attrtype(Variable),pointer::varclass(*),pointer::attr_val(:)fname=this%get_file_name(_RC)var=>this%get_variable(var_name,_RC)_ASSERT(associated(var),"no variable named "//var_name//" in "//fname)attr=>var%get_attribute(attr_name,_RC)_ASSERT(associated(attr),"no attribute named "//attr_name//" in "//var_name//" in "//fname)attr_val=>attr%get_values()select type(attr_val)type is(integer(kind=INT64))tmp=attr_valattr_int64=tmp(1)class default_FAIL('unsupported subclass (not int64) for units of attribute named '//attr_name//' in '//var_name//' in '//fname)end select_RETURN(_SUCCESS)end function get_var_attr_int64