F.1.4 Initialized_Timer Procedure

The main documentation of the Initialized_Timer Procedure contains additional explanation of this code listing.

  function Initialized_Timer (Timer) result(Initialized)

    ! Input variable.

    type(Timer_type), intent(in) :: Timer  ! Timer to be checked.

    ! Output variable.

    type(logical) :: Initialized           ! Initialized condition boolean.

    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    ! Verify requirements - none.

    ! Set initialized boolean.

    Initialized = ASSOCIATED(Timer%Initialized)

    ! Verify guarantees - none.

    return
  end function Initialized_Timer