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
33 function nextlink(this)
35 class(
link),
pointer :: nextlink
39 function prevlink(this)
41 class(
link),
pointer :: prevlink
45 subroutine setnextlink(this,next)
47 type(link),
pointer :: next
49 end subroutine setnextlink
51 subroutine setprevlink(this,prev)
53 type(link),
pointer :: prev
55 end subroutine setprevlink
57 function getvalue(this)
59 character(len=listcharmaxlen) :: getvalue
64 function constructor(value)
65 type(link),
pointer :: constructor
66 character (len=*) :: value
69 constructor%prev => null()
70 constructor%next => null()
71 constructor%value=value
73 end function constructor
Base type to manage links for lists.
class to manage links for lists in fortran 2003.