tem_appendTimers Subroutine

public subroutine tem_appendTimers(me, nVals)

Append nVals new timers to the timer collection provided in 'me'.

Arguments

Type IntentOptional Attributes Name
type(tem_timer_type), intent(inout) :: me

Timer object to extend by nVals timers
integer, intent(in) :: nVals

Number of timers to append to me.

Source Code

  subroutine tem_appendTimers(me, nVals)
    ! -------------------------------------------------------------------- !
    !> Timer object to extend by nVals timers
    type(tem_timer_type), intent(inout) :: me

    !> Number of timers to append to me.
    integer, intent(in) :: nVals
    ! -------------------------------------------------------------------- !
    logical :: running(nVals)
    real(kind=rk) :: zeroes(nVals)
    ! -------------------------------------------------------------------- !

    running = .false.
    zeroes = 0.0_rk

    call append( me  = me%running, &
      &          val = running     )
    call append( me  = me%tStart, &
      &          val = zeroes     )
    call append( me  = me%duration, &
      &          val = zeroes       )

    me%nTimers = me%nTimers + nVals

  end subroutine tem_appendTimers