Module for the 12th unit test.
Variables
Type | Visibility |
Attributes | | Name | | Initial | |
character(len=*), |
public, |
parameter | :: |
dir | = | '../files/' | Path to write JSON file to |
character(len=*), |
public, |
parameter | :: |
file | = | 'test12.json' | Filename to write |
real(kind=wp), |
public, |
parameter | :: |
TOL | = | 100*epsilon(1.0_wp) | Tolerance for real comparisons |
Subroutines
public subroutine test_12(error_cnt)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
integer, |
intent(out) |
|
| :: |
error_cnt | report number of errors to caller |