Loops over copies of the ``same'' object using KSAME

Example:

          ITKSAM = KSAME (ITK)
       10 IF (ITKSAM .EQ. ITK)  GO TO 90
    C       ... analysis of the same object, e.g.: search for the object
    C           in a specific Lorentz frame ITKRST (see >):
          IF (KCLASS (ITKSAM) .EQ. ITKRST)  THEN
    C       ...
          ENDIF
          ITKSAM = KSAME (ITKSAM)
          GO TO 10
       90 CONTINUE ...

Remarks:

This loop is terminated if it arrives at the original track. KSAME never returns 0. The same particle can be boosted several times into the same Lorentz frame provided that the boosts are performed with different mass or other hypotheses (see 9.6.1); if you start with the original track ITK, the most recently boosted hypothesis is reached first.