close_xml_file Subroutine

  1. vtk_fortran_vtk_file_xml_writer_abstract.f90
  2. vtk_fortran_vtk_file_xml_writer_abstract
  3. close_xml_file

private subroutine close_xml_file(self)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self

Contents

Source Code

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