is_in_range_dp Function

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

Inclusive range test for real(dp).

Arguments

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

Return Value logical


Called by

proc~~is_in_range_dp~~CalledByGraph proc~is_in_range_dp is_in_range_dp interface~is_in_range is_in_range interface~is_in_range->proc~is_in_range_dp

Source Code

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