ListNode.f90

Go to the documentation of this file.

module listnodemodule
  implicit none
  private
 
  public :: listnodetype
 
  type :: listnodetype
    ! -- Public members
    type(listnodetype), pointer, public :: nextnode => null()
    type(listnodetype), pointer, public :: prevnode => null()
    class(*), pointer, public :: Value => null()
  contains
    ! -- Public procedure
    procedure, public :: getitem
    procedure, public :: deallocvalue
  end type listnodetype
 
contains
  ! -- Type-bound procedures for ListNodeType
 
  !> @brief Return a pointer to this node's value.
  function getitem(this) result(valueObject)
    class(listnodetype), intent(inout) :: this
    class(*), pointer :: valueobject
    valueobject => this%Value
  end function getitem
 
  !> @brief Nullify (optionally deallocating) this node's value.
  subroutine deallocvalue(this, destroy)
    class(listnodetype), intent(inout) :: this
    logical, intent(in), optional :: destroy
 
    if (associated(this%Value)) then
      if (present(destroy)) then
        if (destroy) then
          deallocate (this%Value)
        end if
      end if
      nullify (this%Value)
    end if
  end subroutine deallocvalue
 
end module