Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_Time), | intent(in) | :: | reference_time | |||
type(ESMF_TimeInterval), | intent(in) | :: | ring_interval | |||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SimpleAlarm), | intent(inout) | :: | this | |||
type(ESMF_Time), | intent(inout) | :: | current_time | |||
integer, | intent(out), | optional | :: | rc |
type :: SimpleAlarm private type(ESMF_Time) :: reference_time type(ESMF_TimeInterval) :: ring_interval contains procedure :: is_ringing end type SimpleAlarm