Write out the timer name and its value
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_timer_type), | intent(inout), | optional | :: | me |
timer object |
|
integer, | intent(in) | :: | timerHandle |
timer handle |
timer value
function tem_getTimerVal( me, timerHandle ) result( retValue )
! -------------------------------------------------------------------- !
!> timer object
type(tem_timer_type), intent(inout), optional :: me
!> timer handle
integer, intent(in) :: timerHandle
!> timer value
real(kind=rk) :: retValue
! -------------------------------------------------------------------- !
if ( present(me) ) then
if ( me%running%val(timerHandle) ) then
call tem_stoptimer(me, timerhandle)
end if
retValue = me%duration%val(timerHandle)
else
if ( timer%timedat%running%val(timerHandle) ) then
call tem_stoptimer(timerhandle = timerhandle)
end if
retValue = timer%timedat%duration%val(timerHandle)
end if
end function tem_getTimerVal