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