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.
Source Code
pure function end_tag(self,is_indented)result(tag_)!< Return `</tag_name>` end tag.class(xml_tag),intent(in)::self!< XML tag.logical,intent(in),optional::is_indented!< Activate content indentation.character(len=:),allocatable::tag_!< The end tag string.tag_='</'//self%tag_name//'>'if(present(is_indented))then if(is_indented)tag_=repeat(' ',self%indent)//tag_endif endfunction end_tag