tem_startTimer Subroutine

public subroutine tem_startTimer(me, timerHandle)

Start the timer for the given timer handle

Arguments

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

timer object
integer, intent(in) :: timerHandle

Handle of the timer to start

Source Code

  subroutine tem_startTimer( me, timerHandle )
    ! -------------------------------------------------------------------- !
    !> timer object
    type(tem_timer_type), intent(inout), optional :: me
    !> Handle of the timer to start
    integer, intent(in) :: timerHandle
    ! -------------------------------------------------------------------- !

    if ( present(me) ) then
      if ( .not. me%running%val(timerHandle) ) then
        me%running%val(timerHandle) = .true.
        me%tStart%val(timerHandle)  = mpi_wtime()
      end if
    else
      if ( .not.timer%timedat%running%val(timerHandle) ) then
        timer%timedat%running%val(timerHandle) = .true.
        timer%timedat%tStart%val(timerHandle)  = mpi_wtime()
      end if
    end if

  end subroutine tem_startTimer