clamp_value Function

private pure function clamp_value(x, lo, hi) result(y)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: x
real(kind=rk), intent(in) :: lo
real(kind=rk), intent(in) :: hi

Return Value real(kind=rk)


Source Code

   pure real(rk) function clamp_value(x, lo, hi) result(y)
      real(rk), intent(in) :: x, lo, hi

      y = min(max(x, lo), hi)
   end function clamp_value