13 class(*),
pointer ::
value => null()
14 type(link),
pointer :: next => null()
15 type(link),
pointer :: prev => null()
20 procedure :: setNextLink
21 procedure :: setPrevLink
31function nextlink(this)
33class(link),
pointer :: nextLink
37function prevlink(this)
39class(link),
pointer :: prevLink
43subroutine setnextlink(this,next)
45type(link),
pointer :: next
47end subroutine setnextlink
49subroutine setprevlink(this,prev)
51type(link),
pointer :: prev
53end subroutine setprevlink
55function getvalue(this)
56class(
link),
intent(in) :: this
57class(*),
pointer :: getvalue
62function constructor(value)
63type(
link),
pointer :: constructor
64class(*),
intent(in) ::
value
66constructor%prev => null()
67constructor%next => null()
68allocate(constructor%value, source=
value)
69end function constructor
class to manage links for lists in fortran 2003.
Base type to manage links for lists.