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
class to manage links for lists in fortran 2003.
Base type to manage links for lists.