clone Subroutine
private subroutine clone(this, copy)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector_ref), | intent(in) | :: | this | |||
| class(vector_ref), | intent(inout) | :: | copy |
Source Code
subroutine clone(this, copy)
class(vector_ref), intent(in) :: this
class(vector_ref), intent(inout) :: copy
copy%verbose = this%verbose
! Following Fortran 2003, the allocation is done automatically.
! Some compilers (intel) need a flag to do this correctly
copy%items = this%items
copy%maximum_size = this%maximum_size
copy%current_size = this%current_size
if(this%verbose) then
print *, 'cloned vector (', copy%current_size, ' elements)'
end if
end subroutine clone