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