30 procedure :: current => currentdoubleprecision
31 procedure :: display => displaydoubleprecision
38 subroutine displaydoubleprecision(this)
39 class(doubleprecisionList),
intent(inout) :: this
42 do while(this%element())
43 print *,
"index:",this%currentindex(),
" value:", this%current()
46 end subroutine displaydoubleprecision
60 doubleprecision function currentdoubleprecision(this)
61 class(doubleprecisionList) :: this
62 class(*),
pointer :: v
64 v => this%currentpoli()
66 type is (doubleprecision)
67 currentdoubleprecision = v
69 end function currentdoubleprecision
abstract class to use lists in fortran 2003.
Double precision specific implementation of doubly-linked list.
Abstract implementation of doubly-linked list.
class to use lists in fortran 2003.