tem_time_ge_each Function

public pure function tem_time_ge_each(time, trigger) result(ge)

Return the (>=) comparison of each time measurement between the two arguments.

This returns an array of logicals with the length tem_time_n_ids, with each one indicating the comparison result for the individual measures.

Arguments

Type IntentOptional Attributes Name
type(tem_time_type), intent(in) :: time

A fully defined time definition (all components should have meaningful settings).
type(tem_time_type), intent(in) :: trigger

A comparison time definition, where some entries might be set to never. If any of the time components is larger, the result will be true.

Return Value logical, (tem_time_n_ids)

Result of the comparison for each of the time specifications.


Called by

proc~~tem_time_ge_each~~CalledByGraph proc~tem_time_ge_each tem_time_ge_each proc~tem_timecontrol_reached_max tem_timeControl_reached_max proc~tem_timecontrol_reached_max->proc~tem_time_ge_each proc~tem_simcontrol_syncupdate tem_simControl_syncUpdate proc~tem_simcontrol_syncupdate->proc~tem_timecontrol_reached_max

Contents

Source Code

tem_time_ge_each

Source Code

  pure function tem_time_ge_each(time, trigger) result(ge)
    ! -------------------------------------------------------------------- !
    !> A fully defined time definition (all components should have meaningful
    !! settings).
    type(tem_time_type), intent(in) :: time

    !> A comparison time definition, where some entries might be set to never.
    !! If any of the time components is larger, the result will be true.
    type(tem_time_type), intent(in) :: trigger

    !> Result of the comparison for each of the time specifications.
    logical :: ge(tem_time_n_ids)
    ! -------------------------------------------------------------------- !
    ! -------------------------------------------------------------------- !

    ge(tem_time_sim_id)   = (time%sim   >= trigger%sim)
    ge(tem_time_iter_id)  = (time%iter  >= trigger%iter)
    ge(tem_time_clock_id) = (time%clock >= trigger%clock)

  end function tem_time_ge_each