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:         type(qmc_in_t) :: qmc_in
          type(restart_in_t) :: restart_in
          type(reference_t) :: reference
  
          integer :: opts
          character(10), parameter :: keys(4) = [character(10) :: 'sys', 'qmc', 'restart', 'reference']
  
          lua_state = flu_copyptr(L)
          call get_sys_t(lua_state, sys)
  
negative.code:         !       qmc = { ... },
          !       restart = { ... },
          !       reference = { ... },
          !       sparse_hamil = true/false,
          !    }
  
          ! See interface documentation for the relevant read_TYPE procedure to
  