迭代器
Get the next item from the queue_real_iterator
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(queue_real_iterator), | intent(inout) | :: | self | |||
real(kind=rk), | intent(out) | :: | item |
Clear the queue_real_iterator
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(queue_real_iterator), | intent(inout) | :: | self |
type queue_real_iterator
private
type(node), pointer :: ptr => null()
contains
procedure :: next => queue_iterator_next
procedure :: clear => queue_iterator_clear
end type queue_real_iterator