anchor.diff:              call root_EnergyDeposition(fluka_geo_index(fluka_ix), nnuc0-nnuc1, c1m3*(ien0-ien1))
             end if
   #endif
  -
  -          ! hisix debugging:
  -          ! write out the particle distribution after the primary
  -          if (fluka_geo_index(fluka_ix).eq.11) then
  -            do j=1,napx
  -              write(unit210,*) naa(j), nzz(j), nucm(j),ejfv(j),mtc(j),dpsv(j)
  -            end do
  -          end if
           end if
   !
   !     hisix: check which particle ids have not been sent back
  
positive.code:       fluka_ix = -1
        fluka_nturn = -1
        flush(unit208)
        flush(unit209)
  
        return
  end subroutine kernel_fluka_exit
  
  
negative.code:             pid_q = one
            end if
          end do
        end do
  
  !     empty places
  