Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | day_ | ||||
integer, | public | :: | month_ | ||||
integer, | public | :: | year_ | ||||
logical, | public | :: | is_valid_ | = | .FALSE. |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | year | |||
integer, | intent(in) | :: | month | |||
integer, | intent(in) | :: | day |
type :: date_fields integer :: year_ integer :: month_ integer :: day_ logical :: is_valid_ = .FALSE. end type date_fields