libsim Versione 7.2.4

◆ displaybyte()

subroutine displaybyte ( class(bytelist), intent(inout) this)

Print the byte list.

Definizione alla linea 80 del file list_byte.F03.

81
97module list_byte
99 use kinds
100 private
101 public :: bytelist
105 type, extends(list) :: bytelist
106#ifdef DOXYGEN
107 integer::none ! doxigen workaround: if missed do not show procedure
108#endif
109 contains
110! procedure :: addByte !< add byte in list
111 procedure :: current => currentbyte
112 procedure :: display => displaybyte
113! generic :: add => addByte
114 end type bytelist
115
116contains
117
119subroutine displaybyte(this)
120class(byteList),intent(inout) :: this
121
122call this%rewind()
123do while(this%element())
124 print *,"index:",this%currentindex()," value:", this%current()
125 call this%next()
126end do
127end subroutine displaybyte
128
129!!$ subroutine addByte(this, value)
130!!$ class(byteList) :: this
131!!$ byte value
132!!$ class(*), allocatable :: v
133!!$
134!!$ allocate(v,source=value)
135!!$ call this%addvalue(v)
136!!$
137!!$ end subroutine addByte
138
139
141integer(kind=int_b) function currentbyte(this)
142class(byteList) :: this
143class(*), pointer :: v
144
145v => this%currentpoli()
146select type(v)
147type is (integer(kind=int_b))
148 currentbyte = v
149end select
150end function currentbyte
151
152end module list_byte
Definition of constants to be used for declaring variables of a desired type.
Definition kinds.F90:245
abstract class to use lists in fortran 2003.
class to use lists in fortran 2003.
Definition list_byte.F03:58
Abstract implementation of doubly-linked list.
Byte specific implementation of doubly-linked list.
Definition list_byte.F03:66

Generated with Doxygen.