anchor.diff:                          ! Attempt to spawn Hamiltonian walkers..
                           call spawner_ptr(cdet, walker_population(1,idet), nspawned, connection)
                           ! Spawn if attempt was successful.
  -                        if (nspawned /= 0) call create_spawned_particle(cdet, connection, nspawned, spawned_pop)
  +                        if (nspawned /= 0) call create_spawned_particle_ptr(cdet, connection, nspawned, spawned_pop)
   
                           ! Attempt to spawn Hellmann--Feynman walkers from
                           ! Hamiltonian walkers.
                           call spawner_hfs_ptr(cdet, walker_population(1,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:         use determinants, only:det_info, alloc_det_info
          use energy_evaluation, only: update_energy_estimators
          use excitations, only: excit
          use interact, only: fciqmc_interact
          use fciqmc_restart, only: dump_restart, write_restart_file_every_nreports
          use spawning, only: create_spawned_particle
          use fciqmc_common
  
          integer :: idet, ireport, icycle, iparticle, hf_initiator_flag, h_initiator_flag
          integer(lint) :: nattempts, nparticles_old(sampling_size)
  
negative.code:                         ! 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_ptr(cdet, connection, nspawned, spawned_hf_pop)
  
                      end do
  
  