memorylistmodule Module Reference

Data Types
type	memorylisttype

Functions/Subroutines
subroutine	add (this, mt)
type(memorytype) function, pointer	get (this, ipos)
integer(i4b) function	count (this)
subroutine	clear (this)
subroutine	remove (this, ipos, destroyValue)

Function/Subroutine Documentation

add()

subroutine memorylistmodule::add ( class(memorylisttype)  this, type(memorytype), pointer  mt  )

private

Definition at line 20 of file MemoryList.f90.

    class(MemoryListType) :: this
    type(MemoryType), pointer :: mt
    class(*), pointer :: obj => null()
    obj => mt
    call this%list%add(obj)

clear()

subroutine memorylistmodule::clear ( class(memorylisttype)  this )

private

Definition at line 48 of file MemoryList.f90.

    class(MemoryListType) :: this
    call this%list%Clear()

count()

integer(i4b) function memorylistmodule::count ( class(memorylisttype)  this )

private

Definition at line 41 of file MemoryList.f90.

    class(MemoryListType) :: this
    integer(I4B) :: nval
    nval = this%list%count()
    return

get()

type(memorytype) function, pointer memorylistmodule::get ( class(memorylisttype)  this, integer(i4b), intent(in)  ipos  )

private

Definition at line 28 of file MemoryList.f90.

    class(MemoryListType) :: this
    integer(I4B), intent(in) :: ipos
    type(MemoryType), pointer :: res
    class(*), pointer :: obj => null()
    obj => this%list%getitem(ipos)
    select type (obj)
    type is (memorytype)
      res => obj
    end select
    return

remove()

subroutine memorylistmodule::remove ( class(memorylisttype)  this, integer(i4b), intent(in)  ipos, logical, intent(in)  destroyValue  )

private

Definition at line 53 of file MemoryList.f90.

    class(MemoryListType) :: this
    integer(I4B), intent(in) :: ipos
    logical, intent(in) :: destroyValue
    call this%list%RemoveNode(ipos, destroyvalue)