8 parameter(listcharmaxlen=10)
11 public ::
link, listcharmaxlen
15 character(len=listcharmaxlen) ::
value =
""
16 type(link),
pointer :: next => null()
17 type(link),
pointer :: prev => null()
22 procedure :: setNextLink
23 procedure :: setPrevLink
33function nextlink(this)
35class(link),
pointer :: nextLink
39function prevlink(this)
41class(link),
pointer :: prevLink
45subroutine setnextlink(this,next)
47type(link),
pointer :: next
49end subroutine setnextlink
51subroutine setprevlink(this,prev)
53type(link),
pointer :: prev
55end subroutine setprevlink
57function getvalue(this)
59character(len=listcharmaxlen) :: getvalue
64function constructor(value)
65type(
link),
pointer :: constructor
66character (len=*) ::
value
69constructor%prev => null()
70constructor%next => null()
71constructor%value=
value
73end function constructor
class to manage links for lists in fortran 2003.
Base type to manage links for lists.