anchor.diff:              call do_ccmc(sys, qmc_in, ccmc_in, semi_stoch_in, restart_in, load_bal_in, reference, 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_ccmc
  
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:         end if
  
          ! Return qmc_state to the user.
          call push_qmc_state(lua_state, qmc_state_out)
          nresult = 1
  
      end function lua_fciqmc
  