31 procedure :: current => currentcharacter
32 procedure ::
display => displaycharacter
39 subroutine displaycharacter(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
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
Character specific implementation of doubly-linked list.
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...
class to manage links for lists in fortran 2003.