anchor.diff:  
     integer, parameter :: block_length = 8
     integer :: n_blocks
  -  type(correlator_t) :: msd
  +  type(correlator_t) :: msd, omega_acf, oacf
     integer(HID_T) :: correlator_group, group
  +
  +  double precision :: unit_r(3), omega(3), rel_v(3), norm_xy
   
     double precision :: g(3) !gravity
     logical :: fixed, on_track, stopped, N_in_front, dimer, N_type
  
positive.code:      end if
  
       i = i+1
       if (i-i_release >= N_loop) exit setup
    end do setup
  
    call thermo_data%append(hfile, temperature, e1+e2+e_wall, kin_e, e1+e2+e_wall+kin_e, v_com, add=.false., force=.true.)
  
negative.code:   type(PTo) :: config
    integer :: i, L(3),  n_threads
    integer :: j, k, m
    integer :: i_release, i_block
  
    type(timer_t), target :: flag_timer, change_timer, buffer_timer, varia
    double precision :: total_time
  