is_in_range_int64 Function

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

Inclusive range test for integer(int64).

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 logical


Called by

proc~~is_in_range_int64~~CalledByGraph proc~is_in_range_int64 is_in_range_int64 interface~is_in_range is_in_range interface~is_in_range->proc~is_in_range_int64

Source Code

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