clamp_int64 Function

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

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

Arguments

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

Return Value integer(kind=int64)


Called by

proc~~clamp_int64~~CalledByGraph proc~clamp_int64 clamp_int64 interface~clamp clamp interface~clamp->proc~clamp_int64

Source Code

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