8 common/lujets/
n,
k(9000,5),
p(9000,5),
v(9000,5)
10 common/ludat1/mstu(200),paru(200),mstj(200),parj(200)
12 common/ludat2/kchg(500,3),pmas(500,4),parf(2000),vckm(4,4)
14 common/pyhisubs/msel,msub(200),kfin(2,-40:40),ckin(200)
20 common/pyhiint2/iset(200),kfpr(200,2),coef(200,20),icol(40,4,2)
22 common/pyhiint5/
ngen(0:200,3),
xsec(0:200,3)
35 IF(
mint(84)+100.GE.mstu(4))
THEN
37 &
'(PYHITHIA:) no more space in LUJETS for overlayed events')
38 IF(mstu(21).GE.1) goto 200
79 IF(
mstp(111).EQ.-1) goto 160
80 IF(isub.LE.90.OR.isub.GE.95)
THEN
84 IF(
mint(51).EQ.1) goto 100
89 IF(
mstp(61).GE.1.AND.
mint(43).NE.1.AND.isub.NE.95)
94 IF(
mstp(81).GE.1.AND.
mint(43).EQ.4.AND.isub.NE.95)
101 IF(
mint(51).EQ.1) goto 100
107 IF(
mstp(71).GE.1.AND.isub.NE.95.AND.
k(ipu3,1).GT.0.AND.
108 &
k(ipu3,1).LE.10.AND.
k(ipu4,1).GT.0.AND.
k(ipu4,1).LE.10)
THEN
110 IF(isub.EQ.5) qmax=sqrt(pmas(23,1)**2)
111 IF(isub.EQ.8) qmax=sqrt(pmas(24,1)**2)
112 CALL
lushow(ipu3,ipu4,qmax)
119 IF(
k(
i,1).LE.0.OR.
k(
i,1).GT.10) goto 130
120 pt=sqrt(
p(
i,1)**2+
p(
i,2)**2)
146 IF(
mstp(113).GE.1)
THEN
148 140
IF(
k(
i,1).GT.0.AND.
k(
i,1).LE.10)
p(
i,4)=sqrt(
p(
i,1)**2+
149 &
p(
i,2)**2+
p(
i,3)**2+
p(
i,5)**2)
155 IF(
mstp(112).EQ.1.AND.mstu(28).EQ.3) goto 100
156 IF(
mstp(125).EQ.0.OR.
mstp(125).EQ.1)
THEN
158 IF(
k(
i,2).NE.94) goto 150
159 k(
i+1,3)=mod(
k(
i+1,4)/mstu(5),mstu(5))
160 k(
i+2,3)=mod(
k(
i+2,4)/mstu(5),mstu(5))
169 IF(iovl.EQ.1.AND.
mstp(125).LE.0)
THEN
172 ELSEIF(iovl.EQ.1)
THEN
184 160
IF(iovl.EQ.1)
THEN
191 ELSEIF(msub(95).EQ.1.AND.(
i.EQ.11.OR.
i.EQ.12.OR.
i.EQ.13.OR.
192 &
i.EQ.28.OR.
i.EQ.53.OR.
i.EQ.68))
THEN
195 ELSEIF(
ngen(
i,1).EQ.0)
THEN
197 ELSEIF(
ngen(
i,2).EQ.0)
THEN
205 IF(msub(95).EQ.1)
THEN
209 IF(msub(91).EQ.1) xmaxs=xmaxs+
xsec(91,1)
210 IF(msub(92).EQ.1) xmaxs=xmaxs+
xsec(92,1)
211 IF(msub(93).EQ.1) xmaxs=xmaxs+
xsec(93,1)
212 IF(msub(94).EQ.1) xmaxs=xmaxs+
xsec(94,1)
214 IF(ngens.LT.
ngen(0,3)) fac=(xmaxs-xsecs)/(
xsec(0,3)-xsecs)
246 IF(isub.NE.95.AND.
mint(7)*
mint(8).NE.0)
THEN
254 & sqrt(pr),1e20)),
p(
i,3))
257 & sqrt(pr),1e20)),
p(
i,3))
264 IF(iset(isub).EQ.1.OR.iset(isub).EQ.3)
THEN
275 IF(iovl.GE.2.AND.iovl.LE.10)
msti(40+iovl)=isub
276 IF(mstu(70).LT.10)
THEN
285 IF(
mstp(131).EQ.1.AND.
mstp(133).GE.1)
THEN