15 IMPLICIT DOUBLE PRECISION(a-
h, o-
z)
19 common/
pydat1/mstu(200),paru(200),mstj(200),parj(200)
21 common/
pyint2/iset(500),kfpr(500,2),coef(500,20),icol(40,4,2)
35 IF(istsb.EQ.2.OR.istsb.EQ.4) cth=
vint(23)
37 IF(istsb.GE.3.AND.istsb.LE.5) taup=
vint(26)
40 IF(istsb.LE.2.OR.istsb.GE.5)
THEN
42 x2=sqrt(
tau)*exp(-yst)
44 x1=sqrt(taup)*exp(yst)
45 x2=sqrt(taup)*exp(-yst)
55 be34=sqrt(
max(0d0,(1d0-rm3-rm4)**2-4d0*rm3*rm4))
56 rpts=4d0*
vint(71)**2/shat
57 be34l=sqrt(
max(0d0,(1d0-rm3-rm4)**2-4d0*rm3*rm4-rpts))
60 rthm=(4d0*rm3*rm4+rpts)/(1d0-rm3-rm4+be34l)
61 that=-0.5d0*shat*
max(rthm,1d0-rm3-rm4-be34*cth)
62 uhat=-0.5d0*shat*
max(rthm,1d0-rm3-rm4+be34*cth)
63 pt2=
max(
vint(71)**2,0.25d0*shat*be34**2*(1d0-cth**2))
73 5000
FORMAT(1
x,
'Error: you did not link your PYKCUT routine ',
74 &
'correctly.'/1
x,
'Dummy routine in PYTHIA file called instead.'/
75 &1
x,
'Execution stopped!')