Stop a timer for a given function (invalidates the pointer)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(mimic_timer), | intent(inout), | target | :: | this | ||
type(mimic_stack_entry), | intent(inout), | pointer | :: | entry | Function timing of which is currently measured |
subroutine stop_timer(this, entry)
class(mimic_timer), intent(inout), target :: this
!> Function timing of which is currently measured
type(mimic_stack_entry), pointer, intent(inout) :: entry
entry%end_times(entry%num_calls) = get_time()
entry => null()
end subroutine stop_timer