close_scratch_file Subroutine

  1. vtk_fortran_vtk_file_xml_writer_appended.f90
  2. vtk_fortran_vtk_file_xml_writer_appended
  3. close_scratch_file

private subroutine close_scratch_file(self)

Arguments

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

Contents

Source Code

close_scratch_file

Source Code

  subroutine close_scratch_file(self)
  !< Close scratch file.
  class(xml_writer_appended), intent(inout) :: self  !< Writer.

  close(unit=self%scratch, iostat=self%error)
  endsubroutine close_scratch_file