| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=*), | public, | parameter | :: | DATE_DELIMITER | = | '-' | |
| character(len=*), | public, | parameter | :: | TIME_DELIMITER | = | ':' | |
| integer, | public, | parameter, dimension(12) | :: | ENDS | = | [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31] | |
| integer, | public, | parameter, dimension(size(ENDS)) | :: | ENDS_LEAP | = | [31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31] | |
| integer, | public, | parameter | :: | FAILURE | = | 1 | |
| integer, | public, | parameter | :: | MAX_LEN | = | 1024 | |
| integer, | public, | parameter | :: | SUCCESS | = | 0 |