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.
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 self_closing_tag(self,is_indented)result(tag_)!< Return `<tag_name.../>` self closing tag.class(xml_tag),intent(in)::self!< XML tag.logical,intent(in),optional::is_indented!< Flag to check if tag is indented.character(len=:),allocatable::tag_!< The self closing tag string.tag_='<'//self%tag_nameif(self%attributes_number>0)tag_=tag_//' '//self%attributes()tag_=tag_//'/>'if(present(is_indented))then if(is_indented)tag_=repeat(' ',self%indent)//tag_endif endfunction self_closing_tag