finalize Function

private function finalize(self) result(error)

Type Bound

xml_writer_ascii_local

Arguments

Type IntentOptional Attributes Name
class(xml_writer_ascii_local), intent(inout) :: self

Return Value integer(kind=I4P)


Calls

proc~~finalize~8~~CallsGraph proc~finalize~8 xml_writer_ascii_local%finalize proc~chars string%chars proc~finalize~8->proc~chars proc~close_xml_file xml_writer_abstract%close_xml_file proc~finalize~8->proc~close_xml_file proc~write_end_tag xml_writer_abstract%write_end_tag proc~finalize~8->proc~write_end_tag proc~stringify xml_tag%stringify proc~write_end_tag->proc~stringify proc~stringify->proc~chars proc~end_tag xml_tag%end_tag proc~stringify->proc~end_tag proc~is_allocated string%is_allocated proc~stringify->proc~is_allocated proc~self_closing_tag xml_tag%self_closing_tag proc~stringify->proc~self_closing_tag proc~start_tag xml_tag%start_tag proc~stringify->proc~start_tag proc~attributes xml_tag%attributes proc~self_closing_tag->proc~attributes proc~start_tag->proc~attributes

Source Code

   function finalize(self) result(error)
   !< Finalize writer.
   class(xml_writer_ascii_local), intent(inout) :: self  !< Writer.
   integer(I4P)                                 :: error !< Error status.

   call self%write_end_tag(name=self%topology%chars())
   call self%write_end_tag(name='VTKFile')
   call self%close_xml_file
   error = self%error
   endfunction finalize