30 procedure :: current => currentreal
31 procedure :: display => displayreal
38subroutine displayreal(this)
39class(realList),
intent(inout) :: this
42do while(this%element())
43 print *,
"index:",this%currentindex(),
" value:", this%current()
46end subroutine displayreal
60real function currentreal(this)
61class(realList) :: this
64v => this%currentpoli()
69end function currentreal
abstract class to use lists in fortran 2003.
class to use lists in fortran 2003.
Abstract implementation of doubly-linked list.
Real specific implementation of doubly-linked list.