libsim Versione 7.2.4
|
◆ displaybyte()
Print the byte list. Definizione alla linea 80 del file list_byte.F03. 81
100 private
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
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
Definition of constants to be used for declaring variables of a desired type. Definition kinds.F90:245 |