C++ Interface to Tauola
phyfix.h
1 SUBROUTINE PHYFIX(NSTOP,NSTART)
2 COMMON/LUJETS/N,K(4000,5),P(4000,5),V(4000,5)
3 SAVE /LUJETS/
4C NSTOP NSTART : when PHYTIA history ends and event starts.
5 NSTOP=0
6 NSTART=1
7 DO I=1, N
8 IF(K(I,1).NE.21) THEN
9 NSTOP = I-1
10 NSTART= I
11 GOTO 500
12 ENDIF
13 ENDDO
14 500 CONTINUE
15 END