A module containing functions for running unit tests
Is the relative error of the first argument with respect
to the correct answer less than err?
If the correct value is 0.0, then err is treated as an
absolute error
Announce the start of the given test (to let the user know
which one failed!)
Take the logical result of the test (true for pass), and
either announce its success or announce its failure then stop.
Announce the start of the given partial test (to let the user know
which one failed!)
Take the logical result of the check (partial test) (true for pass), and
either announce its success or announce its failure.
Returns true when the verbosity is greater than or equal to the argument
Print a debug message if verbosity is higher than given verbosity_level.
Also print list mode/trinity job id if appropriate
Set job id, for running in list mode or within trinity
Trinity or list mode job id
Variables
Type |
Visibility | Attributes |
|
Name |
| Initial | |
integer,
|
public |
|
:: |
job_id |
|
|
|
Interfaces
-
private function agrees_with_real(val, correct, err)
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
real,
|
intent(in) |
|
|
:: |
val |
|
real,
|
intent(in) |
|
|
:: |
correct |
|
real,
|
intent(in) |
|
|
:: |
err |
|
Return Value
logical
-
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
real,
|
intent(in), |
|
dimension(:)
|
:: |
val |
|
real,
|
intent(in), |
|
dimension(:)
|
:: |
correct |
|
real,
|
intent(in) |
|
|
:: |
err |
|
Return Value
logical
-
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
complex,
|
intent(in), |
|
dimension(:)
|
:: |
val |
|
complex,
|
intent(in), |
|
dimension(:)
|
:: |
correct |
|
real,
|
intent(in) |
|
|
:: |
err |
|
Return Value
logical
-
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
integer,
|
intent(in) |
|
|
:: |
val |
|
integer,
|
intent(in) |
|
|
:: |
correct |
|
Return Value
logical
-
private subroutine should_be_int(val, rslt)
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
integer,
|
intent(in) |
|
|
:: |
val |
|
integer,
|
intent(in) |
|
|
:: |
rslt |
|
-
private subroutine should_be_real(val, rslt)
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
real,
|
intent(in) |
|
|
:: |
val |
|
real,
|
intent(in) |
|
|
:: |
rslt |
|
Functions
Arguments
None
Return Value
character(len=16)
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
integer,
|
intent(in) |
|
|
:: |
val |
|
integer,
|
intent(in) |
|
|
:: |
correct |
|
Return Value
logical
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
complex,
|
intent(in), |
|
dimension(:)
|
:: |
val |
|
complex,
|
intent(in), |
|
dimension(:)
|
:: |
correct |
|
real,
|
intent(in) |
|
|
:: |
err |
|
Return Value
logical
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
real,
|
intent(in), |
|
dimension(:)
|
:: |
val |
|
real,
|
intent(in), |
|
dimension(:)
|
:: |
correct |
|
real,
|
intent(in) |
|
|
:: |
err |
|
Return Value
logical
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
real,
|
intent(in) |
|
|
:: |
val |
|
real,
|
intent(in) |
|
|
:: |
correct |
|
real,
|
intent(in) |
|
|
:: |
err |
|
Return Value
logical
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
integer,
|
intent(in) |
|
|
:: |
verbosity_level |
|
Return Value
logical
Subroutines
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
integer,
|
intent(in) |
|
|
:: |
val |
|
integer,
|
intent(in) |
|
|
:: |
rslt |
|
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
real,
|
intent(in) |
|
|
:: |
val |
|
real,
|
intent(in) |
|
|
:: |
rslt |
|
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
character(len=*),
|
intent(in) |
|
|
:: |
test_name |
|
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
logical,
|
intent(in) |
|
|
:: |
rslt |
|
character(len=*),
|
intent(in) |
|
|
:: |
test_name |
|
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
character(len=*),
|
intent(in) |
|
|
:: |
test_name |
|
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
logical,
|
intent(inout) |
|
|
:: |
test_result |
|
logical,
|
intent(in) |
|
|
:: |
rslt |
|
character(len=*),
|
intent(in) |
|
|
:: |
test_name |
|
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
character(len=*),
|
intent(in) |
|
|
:: |
module_name |
|
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
character(len=*),
|
intent(in) |
|
|
:: |
module_name |
|
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
character(len=*),
|
intent(in) |
|
|
:: |
str1 |
|
character(len=*),
|
intent(in) |
|
|
:: |
str2 |
|
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
integer,
|
intent(in) |
|
|
:: |
verbosity_level |
|
character(len=*),
|
intent(in) |
|
|
:: |
message |
|
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
integer,
|
intent(in) |
|
|
:: |
jid |
|