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