isclose Interface

public interface isclose

Contents

Module Procedures

isclose_real_dp isclose_real_sp isclose_complex_dp isclose_complex_sp

Module Procedures

private elemental function isclose_real_dp(a, b, atol, rtol) result(res)

@brief Compare floating point numbers for equality

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	a
real(kind=dp),	intent(in)			::	b
real(kind=dp),	intent(in),	optional		::	atol
real(kind=dp),	intent(in),	optional		::	rtol

Return Value logical

private elemental function isclose_real_sp(a, b, atol, rtol) result(res)

@brief Compare floating point numbers for equality

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=sp),	intent(in)			::	a
real(kind=sp),	intent(in)			::	b
real(kind=dp),	intent(in),	optional		::	atol
real(kind=dp),	intent(in),	optional		::	rtol

Return Value logical

private elemental function isclose_complex_dp(a, b, atol, rtol) result(res)

@brief Compare floating point numbers for equality

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	a
complex(kind=dp),	intent(in)			::	b
real(kind=dp),	intent(in),	optional		::	atol
real(kind=dp),	intent(in),	optional		::	rtol

Return Value logical

private elemental function isclose_complex_sp(a, b, atol, rtol) result(res)

@brief Compare floating point numbers for equality

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=sp),	intent(in)			::	a
complex(kind=sp),	intent(in)			::	b
real(kind=dp),	intent(in),	optional		::	atol
real(kind=dp),	intent(in),	optional		::	rtol

Return Value logical