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