close_scratch_file Subroutine

private subroutine close_scratch_file(self)

Type Bound

xml_writer_appended

Arguments

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

Called by

proc~~close_scratch_file~~CalledByGraph proc~close_scratch_file xml_writer_appended%close_scratch_file proc~finalize~2 xml_writer_appended%finalize proc~finalize~2->proc~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