is_in_range_int32 Function

private elemental function is_in_range_int32(x, lo, hi) result(flag)

Inclusive range test for integer(int32).

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 logical


Called by

proc~~is_in_range_int32~~CalledByGraph proc~is_in_range_int32 is_in_range_int32 interface~is_in_range is_in_range interface~is_in_range->proc~is_in_range_int32

Source Code

   elemental function is_in_range_int32(x, lo, hi) result(flag)
      !! Inclusive range test for integer(int32).
      integer(int32), intent(in) :: x, lo, hi
      logical :: flag
      flag = (lo <= x) .and. (x <= hi)
   end function is_in_range_int32