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