more Function
private function more(this)
Arguments
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(vector_iterator), | intent(in) | :: | this |
Return Value logical
Source Code
logical function more(this)
class(vector_iterator), intent(in) :: this
more = this%current < this%my_vector%current_size
end function more