Hallo
it looks like you select proton interactions
IF (JTRACK.EQ.1)THEN
and then you search for neutrons among the interaction products
IF (KPART(ip) .EQ. 8) THEN
However, by definition of elastic interaction, one can just get one proton (and the recoiling nucleus).