libsim Versione 7.1.11
|
◆ currentcharacter()
get character pointed by iterator Definizione alla linea 103 del file list_character.F03. 104
123 private
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
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
like abstract class to use character lists in fortran 2003 (gnu gcc 4.8 do not work with character(le... Definition: list_abstractforchar.F03:48 class to use character lists in fortran 2003 WARNING !!!! CHAR LEN IS FIXED TO listcharmaxlen. Definition: list_character.F03:58 Abstract implementation of doubly-linked list. Definition: list_abstractforchar.F03:57 Character specific implementation of doubly-linked list. Definition: list_character.F03:66 |