Nrepeat=0. 560 CONTINUE Nrepeat=Nrepeat+1 if(Nrepeat.ge.100) go to 550 SumMt=0. SumaPz=0. do i=1,Nhad if(AMF(i).le.0.) AMF(i)=-Amass(NREF(i)) ! Uzhi -Amass SumMt=SumMt+sqrt(AMF(i)**2+PXF(i)**2+PYF(i)**2) SumaPz=SumaPz+abs(PZF(i)) enddo if(SumMt.gt.SS) go to 560