profiler_reset Subroutine

public subroutine profiler_reset()

Reset all timing data while keeping region names

Useful for discarding warm-up iterations.

Arguments

None

Variables

Type Visibility Attributes Name Initial
integer(kind=default_int), private :: i

Source Code

   subroutine profiler_reset()
      !! Reset all timing data while keeping region names
      !!
      !! Useful for discarding warm-up iterations.
      integer(default_int) :: i

#ifdef PIC_DISABLE_PROFILER
      return
#endif

      do i = 1, state%num_regions
         state%regions(i)%total_time = 0.0_dp
         state%regions(i)%call_count = 0
         state%regions(i)%active = .false.
      end do
      state%stack_depth = 0
   end subroutine profiler_reset