anchor.diff:    double precision :: e1, e2, e3, e4, e_wall
     double precision :: tau, dt , T
     double precision :: mpcd_alpha
  -  double precision :: prob, reaction_radius
  -  double precision :: bulk_rate
  +  double precision :: reaction_radius
     double precision :: skin, co_max, so_max
     integer :: N_MD_steps, N_loop
     integer :: n_extra_sorting
  
positive.code:   end do
    solvent% vel = solvent% vel - spread(sum(solvent% vel, dim=2)/solvent% Nmax, 2, solvent% Nmax)
    solvent% force = 0
    solvent% species = 1
  
    call n_solvent_el%create_time(hfile%observables, 'n_solvent', &
         n_solvent, H5MD_LINEAR, step=N_MD_steps, &
  
negative.code:         call so_timer%tac()
          colloids% force = 0
  
          call detect_reaction
  
          e1 = compute_force(colloids, solvent, neigh, solvent_cells% edges, solvent_colloid_lj)
          if (do_lennard_jones) e2 = compute_force_n2(colloids, solvent_cells% edges, colloid_lj)
          if (do_elastic) e3 = elastic_network(colloids, links, links_d, elastic_k, solvent_cells%edges)
  