profiler_reset Subroutine

   subroutine profiler_reset()
      !! Reset all timing data
      integer :: i

      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
   end subroutine profiler_reset