Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
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 | :: | SUCCESS | = | 0 |