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)
57 class(*),
pointer :: getvalue
58 getvalue => this%value
62 function constructor(value)
63 type(link),
pointer :: constructor
66 constructor%prev => null()
67 constructor%next => null()
68 allocate(constructor%value, source=value)
69 end function constructor
Base type to manage links for lists.
class to manage links for lists in fortran 2003.