anchor.diff:    tau = PTread_d(config, 'tau', loc=params_group)
     N_MD_steps = PTread_i(config, 'N_MD', loc=params_group)
     colloid_sampling = PTread_i(config, 'colloid_sampling', loc=params_group)
  +  do_solvent_io = PTread_l(config, 'do_solvent_io', loc=params_group)
     if (modulo(N_MD_steps, colloid_sampling) /= 0) then
        error stop 'colloid_sampling must divide N_MD with no remainder'
     end if
  
positive.code: 
    call h5gclose_f(fields_group, error)
    call janus_io%close()
    call solvent_io%close()
    call radial_hist_el%close()
    call n_solvent_el%close()
    if (do_quaternion) then
  
negative.code:   type(polar_fields_t) :: polar
    integer(HID_T) :: polar_id
  
    logical :: do_rattle, do_read_links, do_lennard_jones, do_elastic, do_quaternion, do_solvent_io
    integer, allocatable :: links(:,:)
    double precision, allocatable :: links_d(:)
    double precision :: link_treshold
  