open_scratch_file Subroutine

private subroutine open_scratch_file(self)

Type Bound

xml_writer_appended

Arguments

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

Called by

proc~~open_scratch_file~~CalledByGraph proc~open_scratch_file xml_writer_appended%open_scratch_file proc~initialize xml_writer_appended%initialize proc~initialize->proc~open_scratch_file

Source Code

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

  open(newunit=self%scratch, &
       form='UNFORMATTED',   &
       access='STREAM',      &
       action='READWRITE',   &
       status='SCRATCH',     &
       iostat=self%error)
  endsubroutine open_scratch_file