clamp_sp Function

private elemental function clamp_sp(x, lo, hi) result(y)

Clamp a real(sp) value to [lo, hi].

Arguments

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

Return Value real(kind=sp)


Called by

proc~~clamp_sp~~CalledByGraph proc~clamp_sp clamp_sp interface~clamp clamp interface~clamp->proc~clamp_sp

Source Code

   elemental function clamp_sp(x, lo, hi) result(y)
      !! Clamp a real(sp) value to `[lo, hi]`.
      real(sp), intent(in) :: x, lo, hi
      real(sp) :: y
      y = min(max(x, lo), hi)
   end function clamp_sp