anchor.diff:  
           type(c_ptr) :: sys_ptr
           type(sys_t), pointer :: sys
  -        integer :: opts, err, seed, ncycles, nattempts
  +        integer :: opts, err, rng_seed, ncycles, nattempts
           logical :: fermi_temperature, have_seed
           real(p) :: beta
   
  
positive.code:         type(flu_State), intent(inout) :: lua_state
          integer, intent(in) :: opts
          logical, intent(out) :: fermi_temperature, have_seed
          integer, intent(out) :: nattempts, ncycles, seed
          real(p), intent(out) :: beta
  
          integer :: kinetic_table, err
          character(10), parameter :: keys(5) = [character(17) :: 'nattempts', 'ncycles', 'beta', &
                                                                  'fermi_temperature', 'rng_seed']
  
          if (.not. aot_exists(lua_state, opts, 'kinetic')) call stop_all('read_kinetic_args','"kinetic" table not found.')
          call aot_table_open(lua_state, opts, kinetic_table, 'kinetic')
  
          call aot_get_val(nattempts, err, lua_state, kinetic_table, 'nattempts')
  
negative.code:         use const, only: p
  
          use flu_binding, only: flu_State, flu_copyptr
          use aot_table_module, only: aot_table_top, aot_table_close
  
          use calc, only: ms_in
          use errors, only: stop_all
          use lua_hande_system, only: get_sys_t
          use system, only: sys_t
  
          use canonical_kinetic_energy, only: estimate_kinetic_energy
  