31 procedure :: current => currentbyte
32 procedure :: display => displaybyte
39 subroutine displaybyte(this)
40 class(byteList),
intent(inout) :: this
43 do while(this%element())
44 print *,
"index:",this%currentindex(),
" value:", this%current()
47 end subroutine displaybyte
61 integer(kind=int_b) function currentbyte(this)
62 class(byteList) :: this
63 class(*),
pointer :: v
65 v => this%currentpoli()
67 type is (
integer(kind=int_b))
70 end function currentbyte
abstract class to use lists in fortran 2003.
Byte specific implementation of doubly-linked list.
class to use lists in fortran 2003.
Abstract implementation of doubly-linked list.
Definition of constants to be used for declaring variables of a desired type.