tem_resetTimer Subroutine

public subroutine tem_resetTimer(me, timerHandle)

Reset the timer to zero 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


Calls

proc~~tem_resettimer~~CallsGraph proc~tem_resettimer tem_resetTimer mpi_wtime mpi_wtime proc~tem_resettimer->mpi_wtime

Contents

Source Code


Source Code

  subroutine tem_resetTimer( 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
      me%tStart%val(timerHandle) = mpi_wtime()
      me%duration%val(timerHandle)  = 0._rk
    else
      timer%timedat%tStart%val(timerHandle) = mpi_wtime()
      timer%timedat%duration%val(timerHandle)  = 0._rk
    end if

  end subroutine tem_resetTimer