isEqual Interface

public interface isEqual

Module Procedures

private function isEqualTwoIntegers(i, j)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	i
integer,	intent(in)			::	j

Return Value logical

private function isEqualTwoIntegerArrays1D(a, b, info)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		DIMENSION(:)	::	a
integer,	intent(in),		DIMENSION(:)	::	b
type(assertInfoArray1D),	intent(inout),	optional		::	info

Return Value logical

private function isEqualTwoIntegerArrays2D(a, b, info)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		DIMENSION(:,:)	::	a
integer,	intent(in),		DIMENSION(:,:)	::	b
type(assertInfoArray2D),	intent(inout),	optional		::	info

Return Value logical

private function isWithinToleranceTwoReal(x, y, tol)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	x
real,	intent(in)			::	y
real,	intent(in)			::	tol

Return Value logical

private function isWithinToleranceTwoRealArrays1D(a, b, tol, code)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		DIMENSION(:)	::	a
real,	intent(in),		DIMENSION(:)	::	b
real,	intent(in)			::	tol
integer,	intent(out),	optional		::	code

Return Value logical

private function isWithinToleranceTwoRealArrays2D(a, b, tol, code)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		DIMENSION(:,:)	::	a
real,	intent(in),		DIMENSION(:,:)	::	b
real,	intent(in)			::	tol
integer,	intent(out),	optional		::	code

Return Value logical

private function isWithinToleranceTwoDouble(x, y, tol)

Arguments

Type	Intent	Optional	Attributes		Name
double precision,	intent(in)			::	x
double precision,	intent(in)			::	y
double precision,	intent(in)			::	tol

Return Value logical

private function isWithinToleranceTwoDoubleArrays1D(a, b, tol, code)

Arguments

Type	Intent	Optional	Attributes		Name
double precision,	intent(in),		DIMENSION(:)	::	a
double precision,	intent(in),		DIMENSION(:)	::	b
double precision,	intent(in)			::	tol
integer,	intent(out),	optional		::	code

Return Value logical

private function isWithinToleranceTwoDoubleArrays2D(a, b, tol, code)

Arguments

Type	Intent	Optional	Attributes		Name
double precision,	intent(in),		DIMENSION(:,:)	::	a
double precision,	intent(in),		DIMENSION(:,:)	::	b
double precision,	intent(in)			::	tol
integer,	intent(out),	optional		::	code

Return Value logical

private function isEqualString(s1, s2)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	s1
character(len=*)				::	s2

Return Value logical

private function isWithinToleranceTwoQuad(x, y, tol)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=SELECTED_REAL_KIND(QUAD_DIGITS)),	intent(in)			::	x
real(kind=SELECTED_REAL_KIND(QUAD_DIGITS)),	intent(in)			::	y
real(kind=SELECTED_REAL_KIND(QUAD_DIGITS)),	intent(in)			::	tol

Return Value logical