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(:)
78 allocate (toarray_charl(this%countelements()))
82 do while(this%element())
84 toarray_charl(i) =this%current()
87 end 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.