anchor.diff:    call h5open_f(error)
   
     prob = PTread_d(config,'probability')
  +  bulk_rmpcd = PTread_l(config, 'bulk_rmpcd')
  +  bulk_rate = PTread_d(config, 'bulk_rate')
   
     L = PTread_ivec(config, 'L', 3)
     rho = PTread_i(config, 'rho')
  
positive.code:      call simple_mpcd_step(solvent, solvent_cells, state)
       
       call time_refuel%tic()
       call refuel
       call time_refuel%tac()
  
       n_solvent = 0
  
negative.code:   double precision :: v_com(3)
    type(particle_system_io_t) :: dimer_io
    type(particle_system_io_t) :: solvent_io
    double precision :: bulk_rate
    logical :: bulk_rmpcd
  
    integer, dimension(N_species) :: n_solvent
    type(h5md_element_t) :: n_solvent_el
  