anchor.diff:          type(qmc_state_t), pointer :: qmc_state_out, qmc_state_restart
   
           logical :: have_restart_state
  -        integer :: opts, ierr
  +        integer :: opts, ierr, start_wall_time
  +        real :: start_cpu_time
           real(p), allocatable :: sampling_probs(:)
           character(10), parameter :: keys(9) = [character(10) :: 'sys', 'qmc', 'dmqmc', 'ipdmqmc', 'operators', 'rdm', &
                                                                   'restart', 'reference', 'qmc_state']
  +
  +        call cpu_time(start_cpu_time)
  +        call system_clock(start_wall_time)
   
           lua_state = flu_copyptr(L)
           call get_sys_t(lua_state, sys)
  
positive.code: 
          call push_qmc_state(lua_state, qmc_state_out)
          nresult = 1
  
      end function lua_simple_fciqmc
  
  
negative.code:         use checking, only: check_allocate
          use real_lattice, only: create_next_nearest_orbs
          use system, only: set_spin_polarisation
          use report, only: wrapper_end_report
  
          integer(c_int) :: nresult
          type(c_ptr), value :: L
  