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