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.

Calls

proc~~tem_appendtimers~~CallsGraph proc~tem_appendtimers tem_appendTimers interface~append~9 append proc~tem_appendtimers->interface~append~9 proc~append_da_label append_da_label interface~append~9->proc~append_da_label proc~append_da_veclabel append_da_veclabel interface~append~9->proc~append_da_veclabel interface~sortedposofval~5 sortedposofval proc~append_da_label->interface~sortedposofval~5 interface~expand~9 expand proc~append_da_label->interface~expand~9 proc~append_da_veclabel->interface~expand~9 proc~sortposofval_label sortposofval_label interface~sortedposofval~5->proc~sortposofval_label proc~expand_da_label expand_da_label interface~expand~9->proc~expand_da_label

Called by

proc~~tem_appendtimers~~CalledByGraph proc~tem_appendtimers tem_appendTimers proc~tem_addtimer tem_addTimer proc~tem_addtimer->proc~tem_appendtimers proc~tem_simcontrol_load tem_simControl_load proc~tem_simcontrol_load->proc~tem_addtimer proc~tem_start tem_start proc~tem_start->proc~tem_addtimer proc~tem_load_general tem_load_general proc~tem_load_general->proc~tem_simcontrol_load

Contents

Source Code

tem_appendTimers

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