vec_dp_pop_back Subroutine

private pure subroutine vec_dp_pop_back(self, value, err)

Remove and return the last element. ERROR_BOUNDS when empty, in which case the vector is unchanged.

Type Bound

vector_dp_t

Arguments

Type IntentOptional Attributes Name
class(vector_dp_t), intent(inout) :: self
real(kind=dp), intent(out) :: value
type(error_t), intent(inout), optional :: err

Calls

proc~~vec_dp_pop_back~~CallsGraph proc~vec_dp_pop_back vector_dp_t%vec_dp_pop_back proc~error_raise error_raise proc~vec_dp_pop_back->proc~error_raise proc~error_set error_t%error_set proc~error_raise->proc~error_set

Source Code

   pure subroutine vec_dp_pop_back(self, value, err)
      !! Remove and return the last element. `ERROR_BOUNDS` when empty, in
      !! which case the vector is unchanged.
      class(vector_dp_t), intent(inout) :: self
      real(dp), intent(out) :: value
      type(error_t), intent(inout), optional :: err

      if (self%n_items <= 0) then
         call error_raise(err, ERROR_BOUNDS, "vector_dp_t: pop_back on an empty vector.")
         return
      end if

      value = self%items(self%n_items)
      self%n_items = self%n_items - 1
   end subroutine vec_dp_pop_back