31 procedure :: current => currentinteger
32 procedure :: display => displayinteger
33 procedure :: toarray => toarray_integerl
40subroutine displayinteger(this)
41class(integerList),
intent(inout) :: this
44do while(this%element())
45 print *,
"index:",this%currentindex(),
" value:", this%current()
48end subroutine displayinteger
61integer function currentinteger(this)
62class(integerList) :: this
65v => this%currentpoli()
70end function currentinteger
73function toarray_integerl(this)
74integer,
allocatable :: toarray_integerl(:)
79allocate (toarray_integerl(this%countelements()))
83do while(this%element())
85 toarray_integerl(i) =this%current()
88end 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.