vec_dp_as_array Function

private pure function vec_dp_as_array(self) result(copy)

A copy holding exactly size() elements.

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_dp_t),	intent(in)			::	self

Return Value real(kind=dp), allocatable, (:)

Source Code

   pure function vec_dp_as_array(self) result(copy)
      !! A copy holding exactly `size()` elements.
      class(vector_dp_t), intent(in) :: self
      real(dp), allocatable :: copy(:)

      allocate (copy(self%n_items))
      if (self%n_items > 0) copy = self%items(1:self%n_items)
   end function vec_dp_as_array