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 !!!! CHAR LEN IS FIXED TO listcharmaxlen.
class to manage links for lists in fortran 2003.
Abstract implementation of doubly-linked list.
Character specific implementation of doubly-linked list.