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 start_tag(self,is_indented)result(tag_)!< Return `<tag_name...>` start 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 start 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 start_tag