30 procedure :: current => currentreal
31 procedure :: display => displayreal
38 subroutine displayreal(this)
39 class(realList) :: this
42 do while(this%element())
43 print *,
"index:",this%currentindex(),
" value:", this%current()
46 end subroutine displayreal
60 real function currentreal(this)
61 class(realList) :: this
62 class(*),
pointer :: v
64 v => this%currentpoli()
69 end 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.