anchor.diff:              pid_q = one
             end if
           end do
  -
  -        if(pid_q.eq.zero.and.pids(j).ne.zero) then
  -          write(unit209,*) fluka_geo_index(fluka_ix), pids(j)
  -        end if
         end do
   
   !     empty places
  
positive.code:       fluka_ix = -1
        fluka_nturn = -1
        flush(unit208)
        flush(unit209)
  
        return
  end subroutine kernel_fluka_exit
  
  
negative.code:       fluka_ix = -1
        fluka_nturn = -1
        flush(unit208)
        return
  end subroutine kernel_fluka_element
  
  