SimpleAlarm Derived Type

type, public :: SimpleAlarm


Inherits

type~~simplealarm~~InheritsGraph type~simplealarm SimpleAlarm ESMF_Time ESMF_Time type~simplealarm->ESMF_Time reference_time ESMF_TimeInterval ESMF_TimeInterval type~simplealarm->ESMF_TimeInterval ring_interval

Constructor

public interface SimpleAlarm

  • private function new_simple_alarm(reference_time, ring_interval, rc) result(new_alarm)

    Arguments

    Type IntentOptional Attributes Name
    type(ESMF_Time), intent(in) :: reference_time
    type(ESMF_TimeInterval), intent(in) :: ring_interval
    integer, intent(out), optional :: rc

    Return Value type(SimpleAlarm)


Type-Bound Procedures

procedure, public :: is_ringing

  • private function is_ringing(this, current_time, rc) result(ringing)

    Arguments

    Type IntentOptional Attributes Name
    class(SimpleAlarm), intent(inout) :: this
    type(ESMF_Time), intent(inout) :: current_time
    integer, intent(out), optional :: rc

    Return Value logical

Source Code

   type :: SimpleAlarm
      private
      type(ESMF_Time) :: reference_time
      type(ESMF_TimeInterval) :: ring_interval
      contains
         procedure :: is_ringing
   end type SimpleAlarm