Print measured timings of function calls
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(mimic_timer), | intent(inout) | :: | this |
subroutine print_timings(this)
class(mimic_timer), intent(inout) :: this
integer :: i
integer :: hierarchy_level = 0
if (associated(this%entries)) then
do i = 1, this%num_entries
call this%entries(i)%print(hierarchy_level)
end do
endif
end subroutine print_timings