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/ludat3/mdcy(500,3),mdme(2000,2),brat(2000),kfdp(2000,5)
16 common/pyhisubs/msel,msub(200),kfin(2,-40:40),ckin(200)
23 IF(mtest.LE.0)
mstp(122)=0
50 CALL
pyhiinit(
'FIXT',
'pi+',
'p',pzsum)
53 ELSEIF(iproc.EQ.2)
THEN
62 ELSEIF(iproc.EQ.3)
THEN
71 CALL
pyhiinit(
'CMS',
'p',
'pbar',pesum)
74 ELSEIF(iproc.EQ.4)
THEN
86 CALL
pyhiinit(
'CMS',
'p',
'pbar',pesum)
89 ELSEIF(iproc.EQ.5)
THEN
98 CALL
pyhiinit(
'CMS',
'p',
'pbar',pesum)
101 ELSEIF(iproc.EQ.6)
THEN
110 CALL
pyhiinit(
'CMS',
'p',
'pbar',pesum)
113 ELSEIF(iproc.EQ.7)
THEN
118 CALL
pyhiinit(
'CMS',
'e+',
'e-',pesum)
125 IF(iproc.EQ.4) pesumm=
msti(41)*pesum
129 deve=abs(
plu(0,4)-pesumm)+abs(
plu(0,3)-pzsum)
130 devt=abs(
plu(0,1))+abs(
plu(0,2))
131 devq=abs(
plu(0,6)-pqsum)
132 IF(deve.GT.1
e-3*pesum.OR.devt.GT.
max(0.01,1
e-5*pesum).OR.
134 IF(merr.NE.0)
WRITE(mstu(11),1000) iproc,iev
139 IF(
k(
i,1).GT.20) goto 110
141 WRITE(mstu(11),1100)
i
144 pd=
p(
i,4)**2-
p(
i,1)**2-
p(
i,2)**2-
p(
i,3)**2-
p(
i,5)**2*
146 IF(abs(pd).GT.
max(0.1,0.002*
p(
i,4)**2,0.002*
p(
i,5)**2).OR.
147 &(
p(
i,5).GE.0..AND.
p(
i,4).LT.0.))
THEN
148 WRITE(mstu(11),1200)
i
154 IF(merr.GE.1) nerr=nerr+1
160 IF(mtest.GE.1.AND.(merr.GE.1.OR.iev.EQ.1))
THEN
161 IF(merr.GE.1)
WRITE(mstu(11),1400)
171 IF(nerr.EQ.0)
WRITE(mstu(11),1500)
172 IF(nerr.GT.0)
WRITE(mstu(11),1600) nerr
176 1000
FORMAT(/5
x,
'Energy/momentum/flavour nonconservation for process',
178 1100
FORMAT(/5
x,
'Entry no.',
i4,
' in following event not known code')
179 1200
FORMAT(/5
x,
'Entry no.',
i4,
' in following event has faulty ',
181 1300
FORMAT(/5
x,
'This is the tenth error experienced! Something is ',
182 &
'wrong.'/5
x,
'Execution will be stopped after listing of event.')
183 1400
FORMAT(5
x,
'Faulty event follows:')
184 1500
FORMAT(//5
x,
'End result of run: no errors detected.')
185 1600
FORMAT(//5
x,
'End result of run:',
i2,
' errors detected.'/
186 &5
x,
'This should not have happened!')