anchor.diff:                          ! Hellmann--Feynman walkers.
                           call spawner_ptr(cdet, walker_population(2,idet), nspawned, connection)
                           ! Spawn if attempt was successful.
  -                        if (nspawned /= 0) call create_spawned_particle(cdet, connection, nspawned, spawned_hf_pop)
  +                        if (nspawned /= 0) call create_spawned_particle_ptr(cdet, connection, nspawned, spawned_hf_pop)
   
                       end do
   
  
positive.code: 
                      ! Clone Hellmann--Feynman walkers from Hamiltonian walkers.
                      ! Not in place, must set initiator flag.
                      cdet%initiator_flag = h_initiator_flag
                      call stochastic_hf_cloning(walker_data(2,idet), walker_population(1,idet), &
                                                 walker_population(2,idet), nparticles(2))
  
  
negative.code: ! See documentation/theory/hellmann_feynman/hf.tex for details.
  
  use const
  
  implicit none
  
  