31 procedure :: current => currentcharacter
32 procedure :: display => displaycharacter
39subroutine displaycharacter(this)
40class(characterList) :: this
43do while(this%element())
45 print *,
"index:",this%currentindex(),
" value:", trim(this%current())
48end subroutine displaycharacter
62function currentcharacter(this)
63character(len=listcharmaxlen) :: currentCharacter
64class(characterList) :: this
66currentcharacter = this%currentpoli()
68end function currentcharacter
72function toarray_charl(this)
73character(len=listcharmaxlen),
allocatable :: toarray_charl(:)
78allocate (toarray_charl(this%countelements()))
82do while(this%element())
84 toarray_charl(i) =this%current()
87end function toarray_charl
like abstract class to use character lists in fortran 2003 (gnu gcc 4.8 do not work with character(le...
class to use character lists in fortran 2003 WARNING !
class to manage links for lists in fortran 2003.
Abstract implementation of doubly-linked list.
Character specific implementation of doubly-linked list.