open_scratch_file Subroutine

  1. vtk_fortran_vtk_file_xml_writer_appended.f90
  2. vtk_fortran_vtk_file_xml_writer_appended
  3. open_scratch_file

private subroutine open_scratch_file(self)

Arguments

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

Contents

Source Code

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