is_in_range Interface

public interface is_in_range

Test whether a value lies within the inclusive range [lo, hi].

Returns .true. when lo <= x .and. x <= hi. Supported types are: integer(int32), integer(int64), real(sp), real(dp). Usage: flag = is_in_range(x, lo, hi)

Calls

interface~~is_in_range~~CallsGraph interface~is_in_range is_in_range proc~is_in_range_dp is_in_range_dp interface~is_in_range->proc~is_in_range_dp proc~is_in_range_int32 is_in_range_int32 interface~is_in_range->proc~is_in_range_int32 proc~is_in_range_int64 is_in_range_int64 interface~is_in_range->proc~is_in_range_int64 proc~is_in_range_sp is_in_range_sp interface~is_in_range->proc~is_in_range_sp

Module Procedures

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

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

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

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