libsim Versione 7.2.1

◆ currentcharacter()

character(len=listcharmaxlen) function currentcharacter ( class(characterlist this)
private

get character pointed by iterator

Definizione alla linea 103 del file list_character.F03.

104
120module list_character
122 use list_linkchar
123 private
124 public :: characterlist, toarray_charl
128 type, extends(list) :: characterlist
129#ifdef DOXYGEN
130 integer::none ! doxigen workaround: if missed do not show procedure
131#endif
132 contains
133! procedure :: addCharacter !< add character in list
134 procedure :: current => currentcharacter
135 procedure :: display => displaycharacter
136! generic :: add => addCharacter
137 end type characterlist
138
139contains
140
142subroutine displaycharacter(this)
143class(characterList) :: this
144
145call this%rewind()
146do while(this%element())
147
148 print *,"index:",this%currentindex()," value:", trim(this%current())
149 call this%next()
150end do
151end subroutine displaycharacter
152
153!!$ subroutine addCharacter(this, value)
154!!$ class(characterList) :: this
155!!$ character value
156!!$ class(*), allocatable :: v
157!!$
158!!$ allocate(v,source=value)
159!!$ call this%addvalue(v)
160!!$
161!!$ end subroutine addCharacter
162
163
165function currentcharacter(this)
166character(len=listcharmaxlen) :: currentCharacter
167class(characterList) :: this
168
169currentcharacter = this%currentpoli()
170
171end function currentcharacter
172
173
175function toarray_charl(this)
176character(len=listcharmaxlen),allocatable :: toarray_charl(:)
177type(characterlist) :: this
178
179integer :: i
180
181allocate (toarray_charl(this%countelements()))
182
183call this%rewind()
184i=0
185do while(this%element())
186 i=i+1
187 toarray_charl(i) =this%current()
188 call this%next()
189end do
190end function toarray_charl
191
192
193
194end module list_character
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.

Generated with Doxygen.