clamp_int32 Function

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

Clamp an integer(int32) value to [lo, hi].

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: x
integer(kind=int32), intent(in) :: lo
integer(kind=int32), intent(in) :: hi

Return Value integer(kind=int32)


Called by

proc~~clamp_int32~~CalledByGraph proc~clamp_int32 clamp_int32 interface~clamp clamp interface~clamp->proc~clamp_int32

Source Code

   elemental function clamp_int32(x, lo, hi) result(y)
      !! Clamp an integer(int32) value to `[lo, hi]`.
      integer(int32), intent(in) :: x, lo, hi
      integer(int32) :: y
      y = min(max(x, lo), hi)
   end function clamp_int32