anchor.diff:              call do_simple_fciqmc(sys, qmc_in, restart_in, reference, use_sparse_hamil, qmc_state_out)
           end if
   
  -        call flu_pushlightuserdata(lua_state, c_loc(qmc_state_out))
  +        call push_qmc_state(lua_state, qmc_state_out)
           nresult = 1
   
       end function lua_simple_fciqmc
  
positive.code:         ! See interface documentation for the relevant read_TYPE procedure to
          ! understand the options available within a given subtable.
  
          use, intrinsic :: iso_c_binding, only: c_ptr, c_int, c_loc
          use flu_binding, only: flu_State, flu_copyptr, flu_pushlightuserdata
          use aot_table_module, only: aot_table_top, aot_table_close
  
          use dmqmc_data, only: dmqmc_in_t
  
negative.code:         ! See interface documentation for the relevant read_TYPE procedure to
          ! understand the options available within a given subtable.
  
          use, intrinsic :: iso_c_binding, only: c_ptr, c_int
          use flu_binding, only: flu_State, flu_copyptr
          use aot_table_module, only: aot_table_top, aot_table_close, aot_get_val
  
          use simple_fciqmc, only: do_simple_fciqmc
  