add_vector Subroutine
private subroutine add_vector(this, that)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector_ref), | intent(inout) | :: | this | |||
| class(vector_ref), | intent(in) | :: | that |
Variables
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | i |
Source Code
subroutine add_vector(this, that)
class(vector_ref),intent(inout) :: this
class(vector_ref),intent(in) :: that
integer :: i
do i = 1, that%current_size
call this%add(that%items(i)%stuff)
end do
end subroutine add_vector