anchor.diff:          if (cpu_only) then
               call cpu_time(this%start_time)
           else
  -            call system_clock(this%counter, this%COUNT_RATE, this%COUNT_MAX)
  +            call system_clock(this%counter, this%count_rate, this%count_max)
           endif
       end subroutine start
   
  
positive.code:                 call cpu_time(current_time)
              else
                  call system_clock(count_end)
                  current_time = (count_end - this%counter) / real(this%count_rate)
              endif
              time = this%total_time + (current_time - this%start_time)
          else
  
negative.code:             call cpu_time(this%end_time)
          else
              call system_clock(count_end)
              if (count_end<this%counter) then
                  this%end_time = (count_end + (this%count_max - this%counter)) / real(this%count_rate)
              else
                  this%end_time = (count_end - this%counter) / real(this%count_rate)
              endif
          endif
  
          if (this%is_running) then
  