anchor.diff:              if (soft_exit) exit
   
           end do
  +
           if (parent) then
               call write_fciqmc_final(ireport)
               write (6,'()')
  
positive.code:         call initial_fciqmc_status(sys)
          ! Initialise timer.
          call cpu_time(t1)
          do ireport = 1, nreport
  
              ! Zero report cycle quantities.
              call init_report_loop(bloom_stats)
  
              do icycle = 1, ncycles
                  call init_mc_cycle(nattempts, ndeath)
                  if( ireport > 1 .and. icycle==50 ) then
                      call redistribute_processors(proc_map)
                  end if 
                  do idet = 1, tot_walkers ! loop over walkers/dets
  
                      cdet%f => walker_dets(:,idet)
  
negative.code:         integer :: nspawned, ndeath
          type(excit) :: connection
          real(p) :: hmatel
  
          logical :: soft_exit
  
          real :: t1
  