close_xml_file Subroutine

private subroutine close_xml_file(self)

Type Bound

xml_writer_abstract

Arguments

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

Called by

proc~~close_xml_file~~CalledByGraph proc~close_xml_file xml_writer_abstract%close_xml_file proc~finalize~2 xml_writer_appended%finalize proc~finalize~2->proc~close_xml_file proc~finalize~4 xml_writer_binary_local%finalize proc~finalize~4->proc~close_xml_file proc~finalize~8 xml_writer_ascii_local%finalize proc~finalize~8->proc~close_xml_file

Source Code

   subroutine close_xml_file(self)
   !< Close XML file.
   class(xml_writer_abstract), intent(inout) :: self !< Writer.

   if (.not.self%is_volatile) close(unit=self%xml, iostat=self%error)
   endsubroutine close_xml_file