9 SUBROUTINE pytbbn(I,NN,E,XMGLU,GAM)
12 IMPLICIT DOUBLE PRECISION(a-
h, o-
z)
16 parameter(ksusy1=1000000,ksusy2=2000000,ktechn=3000000,
17 &kexcit=4000000,kdimen=5000000)
19 common/
pydat1/mstu(200),paru(200),mstj(200),parj(200)
20 common/
pydat2/kchg(500,4),pmas(500,4),parf(2000),vckm(4,4)
21 common/
pymssm/imss(0:99),rmss(0:99)
22 common/
pyssmt/zmix(4,4),umix(2,2),vmix(2,2),smz(4),smw(2),
23 &sfmix(16,4),zmixi(4,4),umixi(2,2),vmixi(2,2)
30 DOUBLE PRECISION cosd,sind,cosd2,sind2,cos2d,sin2d
31 DOUBLE PRECISION hl,hr,fl,fr,hl2,hr2,fl2,fr2
32 DOUBLE PRECISION xms2(2),xm,xm2,xmg,xmg2,xmr,xmr2
33 DOUBLE PRECISION sbar,smin,smax,xmqa,
w,grs,
g(0:6),summe(0:100)
34 DOUBLE PRECISION ff,hh,hfl,hfr,hrfl,hlfr,xmq4,xm24
35 DOUBLE PRECISION xln1,xln2,
b1,b2
36 DOUBLE PRECISION e,xmglu,gam
37 DOUBLE PRECISION hrb(4),hlb(4),flb(4),frb(4)
39 DOUBLE PRECISION alphaw,
alphas
40 DOUBLE PRECISION hlt(4),hrt(4),flt(4),frt(4)
42 DOUBLE PRECISION amn(4),an(4,4),zn(3)
44 DOUBLE PRECISION ambot,sinc,cosc
45 DOUBLE PRECISION amtop,sina,cosa
46 DOUBLE PRECISION sinw,cosw,tanw
47 DOUBLE PRECISION rot1(4,4)
53 sinb=tanb/sqrt(1d0+tanb**2)
67 fakt1=ambot/w2/amw/cosb
68 fakt2=amtop/w2/amw/sinb
88 an(ii,
j)=an(ii,
j)+zmix(ii,jj)*rot1(jj,
j)
93 zn(1)=-fakt2*(-sinb*an(
j,3)+cosb*an(
j,4))
94 zn(2)=-2d0*w2/3d0*sinw*(tanw*an(
j,2)-an(
j,1))
95 zn(3)=-2*w2/3d0*sinw*an(
j,1)-w2*(0.5d0-2d0/3d0*
97 hrt(
j)=zn(1)*cosa-zn(3)*sina
98 hlt(
j)=zn(1)*cosa+zn(2)*sina
99 flt(
j)=zn(3)*cosa+zn(1)*sina
100 frt(
j)=zn(2)*cosa-zn(1)*sina
103 zn(1)=-fakt1*(cosb*an(
j,3)+sinb*an(
j,4))
104 zn(2)=w2/3d0*sinw*(tanw*an(
j,2)-an(
j,1))
105 zn(3)=w2/3d0*sinw*an(
j,1)+w2*(0.5d0-xw/3d0)*an(
j,2)/cosw
106 hrb(
j)=zn(1)*cosc-zn(3)*sinc
107 hlb(
j)=zn(1)*cosc+zn(2)*sinc
108 flb(
j)=zn(3)*cosc+zn(1)*sinc
109 frb(
j)=zn(2)*cosc-zn(1)*sinc
120 IF(nint(3d0*
e).EQ.2)
THEN
127 xms2(1)=pmas(
pycomp(ksusy1+6),1)**2
128 xms2(2)=pmas(
pycomp(ksusy2+6),1)**2
137 xms2(1)=pmas(
pycomp(ksusy1+5),1)**2
138 xms2(2)=pmas(
pycomp(ksusy2+5),1)**2
163 xm24=(xmg2+xm2)*(xm2+xmr2)
165 smax=(xmg-abs(xmr))**2
166 xmqa=xmg2+2d0*xm2+xmr2
168 sbar=smin+dble(lin)*(smax-smin)/dble(nn)
170 w=
pylamf(xmg2,xmr2,sbar)*(0.25d0-xm2/sbar)
172 xln1=
log(abs((grs/2d0+xms2(1)-
w)/(grs/2d0+xms2(1)+
w)))
173 xln2=
log(abs((grs/2d0+xms2(2)-
w)/(grs/2d0+xms2(2)+
w)))
174 b1=1d0/(grs/2d0+xms2(1)-
w)-1d0/(grs/2d0+xms2(1)+
w)
175 b2=1d0/(grs/2d0+xms2(2)-
w)-1d0/(grs/2d0+xms2(2)+
w)
176 g(0)=-2d0*(hl2+fl2+hr2+fr2+(hfr-hfl)*sin2d
177 & +2d0*(ff*sind2-hh*cosd2))*
w
178 g(1)=((hl2+fl2)*(xmqa-2d0*xms2(1)-2d0*xm*xmg*sin2d)
179 & +4d0*hfl*xm*xmr)*xln1
180 & +((hl2+fl2)*((xmqa-xms2(1))*xms2(1)-xm24
181 & +2d0*xm*xmg*(xm2+xmr2-xms2(1))*sin2d)
182 & -4d0*hfl*xmr*xm*(xmg2+xm2-xms2(1))
183 & +8d0*hfl*xmq4*sin2d)*
b1
184 g(2)=((hr2+fr2)*(xmqa-2d0*xms2(2)+2d0*xm*xmg*sin2d)
185 & +4d0*hfr*xmr*xm)*xln2
186 & +((hr2+fr2)*((xmqa-xms2(2))*xms2(2)-xm24
187 & +2d0*xmg*xm*sin2d*(xms2(2)-xm2-xmr2))
188 & +4d0*hfr*xm*xmr*(xms2(2)-xmg2-xm2)
189 & -8d0*hfr*xmq4*sin2d)*b2
190 g(3)=(2d0*hfl*sin2d*(xms2(1)*(grs+xms2(1))+xm2*(sbar-xmg2-xmr2)
191 & +xmg2*xmr2+xm2*xm2)-2d0*xmr*xmg*(hl2*sind2+fl2*cosd2)*sbar
192 & -2d0*xmg*xm*hfl*(sbar+xmr2-xmg2)
193 & +xmr*xm*(hl2+fl2)*sin2d*(sbar+xmg2-xmr2)
194 & -4d0*xmq4*(hl2-fl2)*cos2d)/(grs+2d0*xms2(1))*xln1
195 g(4)=4d0*cos2d*xm*xmg/(xms2(1)-xms2(2))*
196 & (((hlfr+hrfl)*(xm2+xmr2)+2d0*xm*xmr*(hh+ff))*(xln1-xln2)
197 & +(hlfr+hrfl)*(xms2(2)*xln2-xms2(1)*xln1))
198 g(5)=(2d0*(hh*cosd2-ff*sind2)
199 & *((xms2(2)*(xms2(2)+grs)+xm2*xm2+xmg2*xmr2)*xln2
200 & +(xms2(1)*(xms2(1)+grs)+xm2*xm2+xmg2*xmr2)*xln1)
201 & +xm*((hh-ff)*sin2d*xmg-(hrfl-hlfr)*xmr)
202 & *((grs+xms2(1)*2d0)*xln1-(grs+xms2(2)*2d0)*xln2)
203 & +((hrfl-hlfr)*xmr*(sin2d*xmg*(sbar-4d0*xm2)
204 & +cos2d*xm*(sbar+xmg2-xmr2))
205 & +2d0*(ff*cosd2-hh*sind2)*xm2*(sbar-xmg2-xmr2))
206 & *(xln1+xln2))/(grs+xms2(1)+xms2(2))
207 g(6)=(-2d0*hfr*sin2d*(xms2(2)*(grs+xms2(2))+xm2*(sbar-xmg2-xmr2)
208 & +xmg2*xmr2+xm2*xm2)-2d0*xmr*xmg*(hr2*sind2+fr2*cosd2)*sbar
209 & -2d0*xmg*xm*hfr*(sbar+xmr2-xmg2)
210 & -xmr*xm*(hr2+fr2)*sin2d*(sbar+xmg2-xmr2)
211 & -4d0*xmq4*(hr2-fr2)*cos2d)/(grs+2d0*xms2(2))*xln2
214 summe(lin)=summe(lin)+
g(
j)
220 &/ (16d0 * paru(1) * paru(102) * xmglu**3)