31 procedure :: current => currentinteger
32 procedure ::
display => displayinteger
33 procedure :: toarray => toarray_integerl
40 subroutine displayinteger(this)
44 do while(this%element())
45 print *,
"index:",this%currentindex(),
" value:", this%current()
48 end subroutine displayinteger
61 integer function currentinteger(this)
63 class(*),
pointer :: v
65 v => this%currentpoli()
70 end function currentinteger
73 function toarray_integerl(this)
74 integer,
allocatable :: toarray_integerl(:)
79 allocate (toarray_integerl(this%countelements()))
83 do while(this%element())
85 toarray_integerl(i) =this%current()
88 end function toarray_integerl
Integer specific implementation of doubly-linked list.
abstract class to use lists in fortran 2003.
class to use lists in fortran 2003.