anchor.diff:  
       end do select_substrate_loop
   
  +    call time_select%tac()
  +
     end subroutine select_substrate
   
   
  
positive.code: 
      end do
  
    end subroutine reset_enzyme_region_bit
  
  end program three_bead_enzyme
  
negative.code:     integer :: cell_idx
      integer :: i, start, n
  
      call time_reset%tic()
  
      !$omp parallel do private(cell_idx, i, start, n)
      do cell_idx = 1, solvent_cells%N
  
  