almost_equal Interface

public interface almost_equal

Are two numbers almost equal within some tolerance

Contents

Module Procedures

almost_equal_r32 almost_equal_r64 almost_equal_r128

Module Procedures

private elemental function almost_equal_r32(a, b, rtol, atol)

Are two numbers almost equal

Arguments

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

Return Value logical

private elemental function almost_equal_r64(a, b, rtol, atol)

Are two numbers almost equal

Arguments

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

Return Value logical

private elemental function almost_equal_r128(a, b, rtol, atol)

Are two numbers almost equal

Arguments

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

Return Value logical