anchor.diff:          use system, only: nel, nalpha, nbeta, system_type, hub_real, hub_k
   
           integer :: ierr
  -        integer :: i
  +        integer :: i, iproc_ref
           integer :: step
   
           if (nprocs > 1) call stop_all('init_fciqmc','Not (yet!) a parallel algorithm.')
  
positive.code:             case(hub_real)
                  H00 = slater_condon0_hub_real(f0)
              end select
          end if
  
          if (parent) then
  
negative.code:         ! initial walker.
  
          use errors, only: stop_all
          use hashing, only: murmurhash_bit_string
          use parallel, only: iproc, nprocs, parent
          use utils, only: int_fmt
  
          use basis, only: basis_length
  