| 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 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(out) | :: | error_cnt | report number of errors to caller |