phyfix.h

00001       SUBROUTINE PHYFIX(NSTOP,NSTART)
00002       COMMON/LUJETS/N,K(4000,5),P(4000,5),V(4000,5) 
00003       SAVE /LUJETS/ 
00004 C NSTOP NSTART : when PHYTIA history ends and event starts.
00005       NSTOP=0
00006       NSTART=1
00007       DO I=1, N
00008        IF(K(I,1).NE.21) THEN
00009            NSTOP = I-1
00010            NSTART= I
00011            GOTO 500
00012        ENDIF
00013       ENDDO
00014  500  CONTINUE
00015       END