scratchfilebuffermodule Module Reference

Scratch-file particle event buffer module.

Data Types
type	scratchfilebuffertype
	Scratch-file particle event buffer. Records are written to an unformatted sequential scratch file that is rewound on discard and read back sequentially on flush. More...

Functions/Subroutines
subroutine	scratch_init (this)
subroutine	scratch_append (this, rec)
subroutine	scratch_flush (this, files)
subroutine	scratch_discard (this)
subroutine	scratch_destroy (this)

Function/Subroutine Documentation

scratch_append()

subroutine scratchfilebuffermodule::scratch_append ( class(scratchfilebuffertype)  this, type(particletrackrecordtype), intent(in)  rec  )

private

Definition at line 40 of file ScratchFileBuffer.f90.

    class(ScratchFileBufferType) :: this
    type(ParticleTrackRecordType), intent(in) :: rec
    write (this%iun) rec
    this%nrecords = this%nrecords + 1

scratch_destroy()

subroutine scratchfilebuffermodule::scratch_destroy ( class(scratchfilebuffertype)  this )

private

Definition at line 72 of file ScratchFileBuffer.f90.

    class(ScratchFileBufferType) :: this
    if (this%iun > 0) then
      close (this%iun)
      this%iun = 0
    end if
    this%nrecords = 0

scratch_discard()

subroutine scratchfilebuffermodule::scratch_discard ( class(scratchfilebuffertype)  this )

private

Definition at line 66 of file ScratchFileBuffer.f90.

    class(ScratchFileBufferType) :: this
    rewind(this%iun)
    this%nrecords = 0

scratch_flush()

subroutine scratchfilebuffermodule::scratch_flush ( class(scratchfilebuffertype)  this, type(particletrackfiletype), dimension(:), intent(in)  files  )

private

Definition at line 47 of file ScratchFileBuffer.f90.

    class(ScratchFileBufferType) :: this
    type(ParticleTrackFileType), intent(in) :: files(:)
    integer(I4B) :: n, i
    type(ParticleTrackRecordType) :: rec
 
    rewind(this%iun)
    do n = 1, this%nrecords
      read (this%iun) rec
      do i = 1, size(files)
        if (files(i)%iun > 0 .and. &
            (files(i)%iprp == -1 .or. files(i)%iprp == rec%iprp)) &
          call save_record(files(i)%iun, rec, files(i)%csv)
      end do
    end do
    rewind(this%iun)
    this%nrecords = 0

Here is the call graph for this function:

scratch_init()

subroutine scratchfilebuffermodule::scratch_init ( class(scratchfilebuffertype)  this )

private

Definition at line 31 of file ScratchFileBuffer.f90.

    class(ScratchFileBufferType) :: this
    integer(I4B) :: istat
    open (newunit=this%iun, status='scratch', form='unformatted', &
          access='sequential', iostat=istat)
    if (istat /= 0) &
      call pstop(1, 'failed to open scratch track buffer file')

Here is the call graph for this function: