is_in_range_sp Function

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

Inclusive range test for real(sp).

Arguments

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

Return Value logical


Called by

proc~~is_in_range_sp~~CalledByGraph proc~is_in_range_sp is_in_range_sp interface~is_in_range is_in_range interface~is_in_range->proc~is_in_range_sp

Source Code

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