31 procedure :: current => currentinteger
32 procedure :: display => displayinteger
33 procedure :: toarray => toarray_integerl
40 subroutine displayinteger(this)
41 class(integerList),
intent(inout) :: this
44 do while(this%element())
45 print *,
"index:",this%currentindex(),
" value:", this%current()
48 end subroutine displayinteger
61 integer function currentinteger(this)
62 class(integerList) :: 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
abstract class to use lists in fortran 2003.
class to use lists in fortran 2003.
Abstract implementation of doubly-linked list.
Integer specific implementation of doubly-linked list.