anchor.diff:                                             qs%spawn_store%spawn, qmc_in%use_mpi_barriers)
                   end if
   
  -                call init_mc_cycle(qs%psip_list, qs%spawn_store%spawn, nattempts, ndeath, ndeath_im = ndeath_im, &
  +                call init_mc_cycle(qs%psip_list, qs%spawn_store%spawn, nattempts, ndeath, &
                                               complx = sys%read_in%comp)
                   call load_balancing_wrapper(sys, qs%propagator, qs%ref, load_bal_in, annihilation_flags, &
                                               fciqmc_in%non_blocking_comm, rng, qs%psip_list, qs%spawn_store%spawn, &
  
positive.code:         use system, only: sys_t
          use qmc_common, only: decide_nattempts
          use hamiltonian_data
  
          type(sys_t), intent(in) :: sys
          type(qmc_in_t), intent(in) :: qmc_in
  
negative.code:     end subroutine do_fciqmc
  
      subroutine evolve_spawned_walkers(sys, qmc_in, qs, spawn_recv, spawn_to_send, cdet, rng, ndeath, &
                                      quadrature_initiator, logging_info, bloom_stats)
  
          ! Evolve spawned list of walkers one time step.
          ! Used for non-blocking communications.
  