set Subroutine
private subroutine set(this, idx, my_stuff)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector_ref), | intent(inout) | :: | this | |||
| integer, | intent(in) | :: | idx | |||
| class(*), | intent(in), | target | :: | my_stuff |
Source Code
subroutine set(this, idx, my_stuff)
class(vector_ref), intent(inout) :: this
integer, intent(in) :: idx
class(*), target, intent(in) :: my_stuff
if(idx > this%current_size) then
do while(idx > this%maximum_size)
call this%extend()
end do
end if
if (1 <= idx .and. idx <= this%current_size) then
this%items(idx)%stuff => my_stuff
end if
end subroutine set