tem_time_max Function

private elemental function tem_time_max(left, right) result(res)

Get the maximum of two time definitions.

This is simply the maximum in each component.

Arguments

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

First time operant to compare.
type(tem_time_type), intent(in) :: right

Second time operant to compare.

Return Value type(tem_time_type)

Resulting maximum time of left and right.


Called by

proc~~tem_time_max~~CalledByGraph proc~tem_time_max tem_time_max interface~max max interface~max->proc~tem_time_max

Contents

Source Code

tem_time_max

Source Code

  elemental function tem_time_max(left, right) result(res)
    ! -------------------------------------------------------------------- !
    !> First time operant to compare.
    type(tem_time_type), intent(in) :: left

    !> Second time operant to compare.
    type(tem_time_type), intent(in) :: right

    !> Resulting maximum time of left and right.
    type(tem_time_type) :: res
    ! -------------------------------------------------------------------- !
    ! -------------------------------------------------------------------- !

    res%sim   = max(left%sim, right%sim)
    res%iter  = max(left%iter, right%iter)
    res%clock = max(left%clock, right%clock)

  end function tem_time_max