musica_assert Module Reference

Assertion functions. More...

Data Types
interface	almost_equal
interface	are_equal
interface	assert_msg
interface	assert_warn_msg
interface	die_msg

Functions/Subroutines
subroutine	assert_msg_string (code, condition, error_message)
	Asserts condition to be true or fails with provided message.
subroutine	assert_msg_char (code, condition, error_message)
	Asserts condition to be true or fails with provided message.
subroutine	assert (code, condition)
	Asserts condition to be true or fails.
subroutine	assert_warn_msg_string (code, condition, warning_message)
	Asserts condition to be true or prints a provided warning message.
subroutine	assert_warn_msg_char (code, condition, warning_message)
	Asserts condition to be true or prints a provided warning message.
subroutine	die_msg_string (code, error_message)
	Errors immediately and prints a provided message.
subroutine	die_msg_char (code, error_message)
	Errors immediately and prints a provided message.
subroutine	die (code)
	Errors immediately.
logical function	almost_equal_real (a, b, relative_tolerance, absolute_tolerance)
	Determines whether two real numbers are equal within a provided or standard tolerance.
logical function	almost_equal_double (a, b, relative_tolerance, absolute_tolerance)
	Determines whether two real numbers are equal within a provided or standard tolerance.
logical function	almost_equal_complex_real (a, b, relative_tolerance, absolute_tolerance)
	Determines whether two complex numbers are equal within a provided or standard tolerance.
logical function	almost_equal_complex_double (a, b, relative_tolerance, absolute_tolerance)
	Determines whether two complex numbers are equal within a provided or standard tolerance.
logical pure function	compare_arrays_1d_real (a, b)
	Compares two 1D arrays for equality.
logical pure function	compare_arrays_2d_real (a, b)
	Compares two 2D arrays for equality.
logical pure function	compare_arrays_1d_double (a, b)
	Compares two 1D arrays for equality.
logical pure function	compare_arrays_2d_double (a, b)
	Compares two 2D arrays for equality.

Variables
integer, parameter	kerrorfileid = 10
	Unit for error output files.
integer, parameter	kerrorid = 0
	Error output id.

Detailed Description

Assertion functions.

Function/Subroutine Documentation

almost_equal_complex_double()

logical function musica_assert::almost_equal_complex_double	(	complex(kind=musica_dk), intent(in)	a,
		complex(kind=musica_dk), intent(in)	b,
		real(kind=musica_dk), intent(in), optional	relative_tolerance,
		real(kind=musica_dk), intent(in), optional	absolute_tolerance )

Determines whether two complex numbers are equal within a provided or standard tolerance.

Parameters

[in]	a	First number to compare
[in]	b	Second number to compare
[in]	relative_tolerance	Relative tolerance
[in]	absolute_tolerance	Absolute tolerance

almost_equal_complex_real()

logical function musica_assert::almost_equal_complex_real	(	complex(kind=musica_rk), intent(in)	a,
		complex(kind=musica_rk), intent(in)	b,
		real(kind=musica_rk), intent(in), optional	relative_tolerance,
		real(kind=musica_rk), intent(in), optional	absolute_tolerance )

Determines whether two complex numbers are equal within a provided or standard tolerance.

Parameters

[in]	a	First number to compare
[in]	b	Second number to compare
[in]	relative_tolerance	Relative tolerance
[in]	absolute_tolerance	Absolute tolerance

almost_equal_double()

logical function musica_assert::almost_equal_double	(	real(kind=musica_dk), intent(in)	a,
		real(kind=musica_dk), intent(in)	b,
		real(kind=musica_dk), intent(in), optional	relative_tolerance,
		real(kind=musica_dk), intent(in), optional	absolute_tolerance )

Determines whether two real numbers are equal within a provided or standard tolerance.

Parameters

[in]	a	First number to compare
[in]	b	Second number to compare
[in]	relative_tolerance	Relative tolerance
[in]	absolute_tolerance	Absolute tolerance

almost_equal_real()

logical function musica_assert::almost_equal_real	(	real(kind=musica_rk), intent(in)	a,
		real(kind=musica_rk), intent(in)	b,
		real(kind=musica_rk), intent(in), optional	relative_tolerance,
		real(kind=musica_rk), intent(in), optional	absolute_tolerance )

Determines whether two real numbers are equal within a provided or standard tolerance.

Parameters

[in]	a	First number to compare
[in]	b	Second number to compare
[in]	relative_tolerance	Relative tolerance
[in]	absolute_tolerance	Absolute tolerance

assert()

subroutine musica_assert::assert	(	integer, intent(in)	code,
		logical, intent(in)	condition )

Asserts condition to be true or fails.

Parameters

[in]	code	Unique code for the assertion
[in]	condition	Condition to evaluate

assert_msg_char()

subroutine musica_assert::assert_msg_char	(	integer, intent(in)	code,
		logical, intent(in)	condition,
		character(len=*), intent(in)	error_message )

Asserts condition to be true or fails with provided message.

Parameters

[in]	code	Unique code for the assertion
[in]	condition	Condition to evaluate
[in]	error_message	Message to display on failure

assert_msg_string()

subroutine musica_assert::assert_msg_string	(	integer, intent(in)	code,
		logical, intent(in)	condition,
		type(string_t), intent(in)	error_message )

Asserts condition to be true or fails with provided message.

Parameters

[in]	code	Unique code for the assertion
[in]	condition	Condition to evaluate
[in]	error_message	Message to display on failure

assert_warn_msg_char()

subroutine musica_assert::assert_warn_msg_char	(	integer, intent(in)	code,
		logical, intent(in)	condition,
		character(len=*), intent(in)	warning_message )

Asserts condition to be true or prints a provided warning message.

Parameters

[in]	code	Unique code for the assertion
[in]	condition	Condition to evaluate
[in]	warning_message	Message to display on failure

assert_warn_msg_string()

subroutine musica_assert::assert_warn_msg_string	(	integer, intent(in)	code,
		logical, intent(in)	condition,
		type(string_t), intent(in)	warning_message )

Asserts condition to be true or prints a provided warning message.

Parameters

[in]	code	Unique code for the assertion
[in]	condition	Condition to evaluate
[in]	warning_message	Message to display on failure

compare_arrays_1d_double()

logical pure function musica_assert::compare_arrays_1d_double	(	real(kind=musica_dk), dimension(:), intent(in)	a,
		real(kind=musica_dk), dimension(:), intent(in)	b )

Compares two 1D arrays for equality.

Parameters

[in]	a	First array to compare
[in]	b	Second array to compare

compare_arrays_1d_real()

logical pure function musica_assert::compare_arrays_1d_real	(	real(kind=musica_rk), dimension(:), intent(in)	a,
		real(kind=musica_rk), dimension(:), intent(in)	b )

Compares two 1D arrays for equality.

Parameters

[in]	a	First array to compare
[in]	b	Second array to compare

compare_arrays_2d_double()

logical pure function musica_assert::compare_arrays_2d_double	(	real(kind=musica_dk), dimension(:,:), intent(in)	a,
		real(kind=musica_dk), dimension(:,:), intent(in)	b )

Compares two 2D arrays for equality.

Parameters

[in]	a	First array to compare
[in]	b	Second array to compare

compare_arrays_2d_real()

logical pure function musica_assert::compare_arrays_2d_real	(	real(kind=musica_rk), dimension(:,:), intent(in)	a,
		real(kind=musica_rk), dimension(:,:), intent(in)	b )

Compares two 2D arrays for equality.

Parameters

[in]	a	First array to compare
[in]	b	Second array to compare

die()

subroutine musica_assert::die

(

integer, intent(in)

code

)

Errors immediately.

Parameters

[in]

code

Unique code for the failure

die_msg_char()

subroutine musica_assert::die_msg_char	(	integer, intent(in)	code,
		character(len=*), intent(in)	error_message )

Errors immediately and prints a provided message.

Parameters

[in]	code	Unique code for the failure
[in]	error_message	Message to display with failure

die_msg_string()

subroutine musica_assert::die_msg_string	(	integer, intent(in)	code,
		type(string_t), intent(in)	error_message )

Errors immediately and prints a provided message.

Parameters

[in]	code	Unique code for the failure
[in]	error_message	Message to display with failure