add_iter Subroutine
private subroutine add_iter(this, iter)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector_ref), | intent(inout) | :: | this | |||
| class(vector_iterator) | :: | iter |
Variables
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| class(*), | public, | pointer | :: | stuff |
Source Code
subroutine add_iter(this, iter)
class(vector_ref),intent(inout) :: this
class(vector_iterator) :: iter
class(*), pointer :: stuff
do while(iter%next(stuff))
call this%add(stuff)
end do
end subroutine add_iter