anchor.diff:                                              FLUKA_EXIT    = 3    ! SINGLE ELEMENT marking the end   of the insertion
     ! ancillary tracking values
     integer(kind=int32), public :: fluka_max_npart                          ! Maximum number of particles (array size)
  -  !integer(kind=int32), public :: fluka_max_uid                            ! Highest particle ID
  -  !integer(kind=int32), public, allocatable :: fluka_uid(:)    ! particle ID
  -  !integer(kind=int32), public, allocatable :: fluka_gen(:)    ! ID of parent particle
  -  !real(kind=fPrec), public, allocatable    :: fluka_weight(:) ! statistical weight (>0.0)
     integer,          public, allocatable    :: pids(:)         ! Particle ID moved from hisixtrack, to be harmonised
   
     ! Useful values
  
positive.code:     fluka_clight    = clight
  
      call alloc(pids,               npart, 0, "pids")
  ! These are now "global" ID variables and should be handled in other modules
  !    call alloc(partID,             npart, 0, 'partID')
  !    call alloc(parentID,           npart, 0, 'parentID')
  !    call alloc(fluka_weight,       npart, one, 'fluka_weight')
      call alloc(fluka_type,         nele, FLUKA_NONE, 'fluka_type')
      call alloc(fluka_geo_index,    nele, 0, 'fluka_geo_index')
      call alloc(fluka_synch_length, nele, zero, 'fluka_synch_length')
  
  ! See above global comment
  !    do j = 1, npart
  !      partID(j) = j
  !      parentID(j) = j
  !    end do
  
  !    fluka_weight       = one
  !    fluka_type         = FLUKA_NONE
  !    fluka_geo_index    = 0
  !    fluka_synch_length = zero
  
      if(unit208 == -1) then
        call f_requestUnit(fort208,unit208)
  
negative.code:       write(fluka_log_unit, *) '# fluka_shuffleLostParticles called with napx (lnapx for SixTrack) = ', tnapx, ', j = ', j
        flush(fluka_log_unit)
      end if
  
    end subroutine fluka_shuffleLostParticles
  
  