set_vector Subroutine
private subroutine set_vector(this, my_vector)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector_iterator), | intent(inout) | :: | this | |||
| type(vector_ref), | intent(in), | target | :: | my_vector |
Source Code
subroutine set_vector(this, my_vector)
class(vector_iterator), intent(inout) :: this
type(vector_ref), target, intent(in) :: my_vector
this%my_vector => my_vector
this%current = 0
end subroutine set_vector