is_nan_real Function

5 statements

public elemental function is_nan_real(x) result(is_nan)

Check if a real value is NaN

@param[in] x Real value to check @return True if x is NaN, false otherwise

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	x

Return Value logical

Source Code

    elemental function is_nan_real(x) result(is_nan)
        real(rk), intent(in) :: x
        logical :: is_nan
        is_nan = ieee_is_nan(x)
    end function is_nan_real