C++ Interface to Tauola
tauola-fortran
include
phyfix.h
1
SUBROUTINE PHYFIX(NSTOP,NSTART)
2
COMMON/LUJETS/N,K(4000,5),P(4000,5),V(4000,5)
3
SAVE /LUJETS/
4
C 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
Generated by
1.11.0