anchor.diff:  
           use, intrinsic :: iso_c_binding, only: c_ptr, c_int, c_f_pointer
           use flu_binding, only: flu_State, flu_copyptr
  -        use aot_table_module, only: aot_table_top, aot_table_close
  +        use aot_table_module, only: aot_table_top, aot_table_close, aot_get_val
   
           use simple_fciqmc, only: do_simple_fciqmc
           use lua_hande_system, only: get_sys_t
  
positive.code:         !       qmc = { ... },
          !       restart = { ... },
          !       reference = { ... },
          !    }
  
          ! See interface documentation for the relevant read_TYPE procedure to
  
negative.code:         call read_qmc_in(lua_state, opts, qmc_in, .true.)
          call read_restart_in(lua_state, opts, restart_in)
          call read_reference_t(lua_state, opts, sys, reference)
          call aot_get_val(use_sparse_hamil, err, lua_state, opts, 'sparse_hamil', default=.true.)
          call warn_unused_args(lua_state, keys, opts)
          call aot_table_close(lua_state, opts)
  
          calc_type = simple_fciqmc_calc + fciqmc_calc
          call do_simple_fciqmc(sys, qmc_in, restart_in, reference, use_sparse_hamil)
  
          nresult = 0
  
  