Subroutine to start a timer
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(pf_pfasst_t), | intent(inout) | :: | pf | |||
integer, | intent(in) | :: | timer |
subroutine start_timer(pf, timer)
type(pf_pfasst_t), intent(inout) :: pf
integer, intent(in) :: timer
call system_clock(pf%timers(timer))
end subroutine start_timer