memorybuffermodule Module Reference

In-memory particle event buffer module.

Data Types
type	memorybuffertype
	In-memory particle event buffer. Records are held in a dynamically growing array that doubles in capacity as needed. More...

Functions/Subroutines
subroutine	memory_append (this, rec)
subroutine	memory_flush (this, files)
subroutine	memory_discard (this)
subroutine	memory_destroy (this)

Function/Subroutine Documentation

memory_append()

subroutine memorybuffermodule::memory_append ( class(memorybuffertype)  this, type(particletrackrecordtype), intent(in)  rec  )

private

Definition at line 28 of file MemoryBuffer.f90.

    class(MemoryBufferType) :: this
    type(ParticleTrackRecordType), intent(in) :: rec
    type(ParticleTrackRecordType), allocatable :: tmp(:)
 
    if (.not. allocated(this%records)) then
      allocate (this%records(64))
    else if (this%nrecords == size(this%records)) then
      allocate (tmp(size(this%records) * 2))
      tmp(1:this%nrecords) = this%records
      call move_alloc(tmp, this%records)
    end if
    this%nrecords = this%nrecords + 1
    this%records(this%nrecords) = rec

memory_destroy()

subroutine memorybuffermodule::memory_destroy ( class(memorybuffertype)  this )

private

Definition at line 66 of file MemoryBuffer.f90.

    class(MemoryBufferType) :: this
    if (allocated(this%records)) deallocate (this%records)

memory_discard()

subroutine memorybuffermodule::memory_discard ( class(memorybuffertype)  this )

private

Definition at line 61 of file MemoryBuffer.f90.

    class(MemoryBufferType) :: this
    this%nrecords = 0

memory_flush()

subroutine memorybuffermodule::memory_flush ( class(memorybuffertype)  this, type(particletrackfiletype), dimension(:), intent(in)  files  )

private

Definition at line 44 of file MemoryBuffer.f90.

    class(MemoryBufferType) :: this
    type(ParticleTrackFileType), intent(in) :: files(:)
    integer(I4B) :: n, i
    type(ParticleTrackRecordType) :: rec
 
    do n = 1, this%nrecords
      rec = this%records(n)
      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
    this%nrecords = 0

Here is the call graph for this function: