Unit test module. Compare 2 element of different types. More...
Data Types | |
interface | compare_coordonnees |
interface | relative_error |
Public Member Functions | |
real *8 function | relative_error_d_0d (x, y) |
Compute the relative error of 2 values. More... | |
real *8 function, dimension(size(x)) | relative_error_d_1d (x, y) |
Compute the relative error of 2 1D-arrays. More... | |
real *8 function, dimension(size(x, 1), size(y, 2)) | relative_error_d_2d (x, y) |
Compute the relative error of 2 2D-arrays. More... | |
real function | relative_error_s_0d (x, y) |
Compute the relative error of 2 real single values. More... | |
real function, dimension(size(x)) | relative_error_s_1d (x, y) |
Compute the relative error of 2 real-single 1D-arrays. More... | |
real function, dimension(size(x, 1), size(y, 2)) | relative_error_s_2d (x, y) |
Compute the relative error of 2 real-single 2D-arrays. More... | |
real *8 function, dimension(size(x, 1), size(x, 2)) | relative_error_coordonnees_2d (x, y, key) |
Compute the relative error of 2 coordonnees field. More... | |
logical function | compare_espece (x, y, tol) |
Compare 2 coordonnees type. Return true if 2 items are identical or relative difference less than a threshold (tol) More... | |
logical function | compare_neutral (x, y, tol) |
Compare 2 neutral type. Return true if 2 items are identical or relative difference less than a threshold (tol) More... | |
logical function | compare_coordonnees_0d (x, y, tol) |
Compare 2 coordonnees type. Return true if 2 items are identical or relative difference less than a threshold (tol) More... | |
logical function | compare_coordonnees_2d (x, y, tol) |
Compare 2 2d-array coordonnees type. Return true if 2 items are identical or relative difference less than a threshold (tol) More... | |
logical function | compare_tube_description (x, y, tol) |
Compare 2 compare_tube_description type. Return true if 2 items are identical or relative difference less than a threshold (tol) More... | |
logical function | compare_simulation_data (x, y, tol) |
Compare 2 simulation_data type. Return true if 2 items are identical or relative difference less than a threshold (tol) More... | |
logical function | compare_emissions (x, y, tol) |
Compare 2 emissions type. Return true if 2 items are identical or relative difference less than a threshold (tol) More... | |
logical function | compare_wave_energy (x, y, tol) |
Compare 2 wave_energy type. Return true if 2 items are identical or relative difference less than a threshold (tol) More... | |
logical function | compare_fieldline_type (x, y, tol) |
Compare 2 fieldline type. Return true if 2 items are identical or relative difference less than a threshold (tol) More... | |
logical function | compare_reac (ref, test) |
Compare 2 reac objects. | |
subroutine | print_diff_simulation_data (x, y) |
Print difference between 2 simulation_data objects in console. | |
subroutine | print_diff_coordonnees (x, y) |
Print difference between 2 coordonnees objects in console. | |
subroutine | print_diff_neutral (x, y) |
Print difference between 2 neutral objects in console. | |
subroutine | print_diff_espece (x, y) |
Print difference between 2 espece objects in console. | |
subroutine | print_diff_emissions (x, y) |
Print difference between 2 emissions objects in console. | |
subroutine | print_diff_wave_energy (x, y) |
Print difference between 2 wave_energy objects in console. | |
subroutine | print_diff_fieldline (x, y) |
Print difference between 2 fieldline objects in console. | |
subroutine | print_diff_tube_description (x, y) |
Print difference between 2 tube_description objects in console. | |
Unit test module. Compare 2 element of different types.
logical function module_unittest::compare_coordonnees_0d | ( | type(coordonnees), intent(in) | x, |
type(coordonnees), intent(in) | y, | ||
real*8, optional | tol | ||
) |
Compare 2 coordonnees type. Return true if 2 items are identical or relative difference less than a threshold (tol)
logical function module_unittest::compare_coordonnees_2d | ( | type(coordonnees), dimension(:,:), intent(in) | x, |
type(coordonnees), dimension(:,:), intent(in) | y, | ||
real*8, optional | tol | ||
) |
Compare 2 2d-array coordonnees type. Return true if 2 items are identical or relative difference less than a threshold (tol)
logical function module_unittest::compare_emissions | ( | type(emissions), intent(in) | x, |
type(emissions), intent(in) | y, | ||
real*8, optional | tol | ||
) |
Compare 2 emissions type. Return true if 2 items are identical or relative difference less than a threshold (tol)
logical function module_unittest::compare_espece | ( | type(espece), dimension(:), intent(in) | x, |
type(espece), dimension(:), intent(in) | y, | ||
real*8, optional | tol | ||
) |
Compare 2 coordonnees type. Return true if 2 items are identical or relative difference less than a threshold (tol)
logical function module_unittest::compare_fieldline_type | ( | type(fieldline_type), intent(in) | x, |
type(fieldline_type), intent(in) | y, | ||
real*8, optional | tol | ||
) |
Compare 2 fieldline type. Return true if 2 items are identical or relative difference less than a threshold (tol)
logical function module_unittest::compare_neutral | ( | type(neutral), dimension(:), intent(in) | x, |
type(neutral), dimension(:), intent(in) | y, | ||
real*8, optional | tol | ||
) |
Compare 2 neutral type. Return true if 2 items are identical or relative difference less than a threshold (tol)
logical function module_unittest::compare_simulation_data | ( | type(simulation_data), intent(in) | x, |
type(simulation_data), intent(in) | y, | ||
real*8, optional | tol | ||
) |
Compare 2 simulation_data type. Return true if 2 items are identical or relative difference less than a threshold (tol)
logical function module_unittest::compare_tube_description | ( | type(tube_description), intent(in) | x, |
type(tube_description), intent(in) | y, | ||
real*8, optional | tol | ||
) |
Compare 2 compare_tube_description type. Return true if 2 items are identical or relative difference less than a threshold (tol)
logical function module_unittest::compare_wave_energy | ( | type(wave_energy), intent(in) | x, |
type(wave_energy), intent(in) | y, | ||
real*8, optional | tol | ||
) |
Compare 2 wave_energy type. Return true if 2 items are identical or relative difference less than a threshold (tol)
real*8 function, dimension(size(x,1),size(x,2)) module_unittest::relative_error_coordonnees_2d | ( | type(coordonnees), dimension(:,:), intent(in) | x, |
type(coordonnees), dimension(:,:), intent(in) | y, | ||
character(len=*), optional | key | ||
) |
Compute the relative error of 2 coordonnees field.
[in] | x(,:,:) | Coordonnees type |
[in] | y(,:,:) | Coordonnees type |
[in] | key | Optional argument: name of coordonnees type to compare (default: longeo) |
real*8 function module_unittest::relative_error_d_0d | ( | real*8, intent(in) | x, |
real*8, intent(in) | y | ||
) |
Compute the relative error of 2 values.
real*8 function, dimension(size(x)) module_unittest::relative_error_d_1d | ( | real*8, dimension(:), intent(in) | x, |
real*8, dimension(:), intent(in) | y | ||
) |
Compute the relative error of 2 1D-arrays.
real*8 function, dimension(size(x,1),size(y,2)) module_unittest::relative_error_d_2d | ( | real*8, dimension(:,:), intent(in) | x, |
real*8, dimension(:,:), intent(in) | y | ||
) |
Compute the relative error of 2 2D-arrays.
real function module_unittest::relative_error_s_0d | ( | real, intent(in) | x, |
real, intent(in) | y | ||
) |
Compute the relative error of 2 real single values.
real function, dimension(size(x)) module_unittest::relative_error_s_1d | ( | real, dimension(:), intent(in) | x, |
real, dimension(:), intent(in) | y | ||
) |
Compute the relative error of 2 real-single 1D-arrays.
real function, dimension(size(x,1),size(y,2)) module_unittest::relative_error_s_2d | ( | real, dimension(:,:), intent(in) | x, |
real, dimension(:,:), intent(in) | y | ||
) |
Compute the relative error of 2 real-single 2D-arrays.