100
zzz/br.input
Normal file
100
zzz/br.input
Normal file
@@ -0,0 +1,100 @@
|
||||
SLHAIN = 0
|
||||
SLHAOUT = 1
|
||||
COUPVAR = 0
|
||||
HIGGS = 5
|
||||
OMIT ELW = 0
|
||||
SM4 = 0
|
||||
FERMPHOB = 0
|
||||
2HDM = 0
|
||||
MODEL = 1
|
||||
TGBET = 20.000000
|
||||
MABEG = 1400.0000
|
||||
MAEND = 1400.0000
|
||||
NMA = 1
|
||||
ALS(MZ) = 0.11800000
|
||||
MSBAR(2) = 0.93500000E-01
|
||||
MCBAR(3) = 0.98600000
|
||||
MBBAR(MB)= 4.1800000
|
||||
MT = 172.50000
|
||||
MTAU = 1.7768200
|
||||
MMUON = 0.10565837
|
||||
ALPH = 132.34890
|
||||
GF = 0.11643600E-04
|
||||
GAMW = 2.0850000
|
||||
GAMZ = 2.4952000
|
||||
MZ = 91.187600
|
||||
MW = 80.379000
|
||||
VTB = 0.99910000
|
||||
VTS = 0.40400000E-01
|
||||
VTD = 0.86700000E-02
|
||||
VCB = 0.41200000E-01
|
||||
VCS = 0.97344000
|
||||
VCD = 0.22520000
|
||||
VUB = 0.35100000E-02
|
||||
VUS = 0.22534000
|
||||
VUD = 0.97427000
|
||||
********************* 4TH GENERATION *************************************
|
||||
SCENARIO FOR ELW. CORRECTIONS TO H -> GG (EVERYTHING IN GEV):
|
||||
GG_ELW = 1: MTP = 500 MBP = 450 MNUP = 375 MEP = 450
|
||||
GG_ELW = 2: MBP = MNUP = MEP = 600 MTP = MBP+50*(1+LOG(M_H/115)/5)
|
||||
|
||||
GG_ELW = 1
|
||||
MTP = 500.00000
|
||||
MBP = 450.00000
|
||||
MNUP = 375.00000
|
||||
MEP = 450.00000
|
||||
************************** 2HDM ******************************************
|
||||
TYPE: 1 (I), 2 (II), 3 (Lepton-specific), 4 (flipped)
|
||||
2HDM TYPE= 2
|
||||
TANBETA = 20.000000
|
||||
ALPHA_H = -0.14000000
|
||||
M_h = 125.00000
|
||||
M_H = 210.00000
|
||||
M_A = 130.00000
|
||||
M_H+ = 130.00000
|
||||
M_12^2 = 25600.000
|
||||
**************************************************************************
|
||||
SUSYSCALE= 2000.0000
|
||||
MU = 1000.0000
|
||||
M2 = 1000.0000
|
||||
MGLUINO = 2500.0000
|
||||
MSL1 = 2000.0000
|
||||
MER1 = 2000.0000
|
||||
MQL1 = 1500.0000
|
||||
MUR1 = 1500.0000
|
||||
MDR1 = 1500.0000
|
||||
MSL = 2000.0000
|
||||
MER = 2000.0000
|
||||
MSQ = 1500.0000
|
||||
MUR = 1500.0000
|
||||
MDR = 1500.0000
|
||||
AL = 2850.0000
|
||||
AU = 2850.0000
|
||||
AD = 2850.0000
|
||||
ON-SHELL = 0
|
||||
ON-SH-WZ = 0
|
||||
IPOLE = 0
|
||||
OFF-SUSY = 0
|
||||
INDIDEC = 0
|
||||
NF-GG = 5
|
||||
IGOLD = 0
|
||||
MPLANCK = 0.24000000E+19
|
||||
MGOLD = 0.10000000E-12
|
||||
******************* VARIATION OF HIGGS COUPLINGS * ***********************
|
||||
ELWK = 0
|
||||
CW = 1.0000000
|
||||
CZ = 1.0000000
|
||||
Ctau = 1.0000000
|
||||
Cmu = 1.0000000
|
||||
Ct = 1.0000000
|
||||
Cb = 1.0000000
|
||||
Cc = 1.0000000
|
||||
Cs = 1.0000000
|
||||
Cgaga = 0.0000000
|
||||
Cgg = 0.0000000
|
||||
CZga = 0.0000000
|
||||
********************* 4TH GENERATION *************************************
|
||||
Ctp = 0.0000000
|
||||
Cbp = 0.0000000
|
||||
Cnup = 0.0000000
|
||||
Cep = 0.0000000
|
||||
284
zzz/h2hh.f
Normal file
284
zzz/h2hh.f
Normal file
@@ -0,0 +1,284 @@
|
||||
double precision function h2hh_hdec(imssm)
|
||||
implicit double precision (a-h,o-z)
|
||||
complex*16 c03_hdec,cc0
|
||||
double precision lamb_hdec,mij,mij0
|
||||
double precision mst12,mst22,mt,lt,lst1,lst2
|
||||
dimension xglbb(2,2),xghbb(2,2),xgctb(2,2)
|
||||
common/param_hdec/gf,alph,amtau,ammuon,amz,amw
|
||||
common/hmass_hdec/amsm,ama,amhl,amhh,amch,amar
|
||||
common/gluino_hdec/amg,amsb1,amsb2,sth,cth,
|
||||
. glbb(2,2),ghbb(2,2),gabb(2,2),
|
||||
. amst1,amst2,stht,ctht,
|
||||
. gltt(2,2),ghtt(2,2),gatt(2,2)
|
||||
c common/sqnlo_hdec/amsb(2),sthb,cthb,glbb(2,2),ghbb(2,2),gabb,
|
||||
c . amst(2),stht,ctht,gltt(2,2),ghtt(2,2),gatt
|
||||
common/coup_hdec/gat,gab,glt,glb,ght,ghb,gzah,gzal,
|
||||
. ghhh,glll,ghll,glhh,ghaa,glaa,glvv,ghvv,
|
||||
. glpm,ghpm,b,a
|
||||
common/masses_hdec/ams,amc,amb,amt0
|
||||
common/break_hdec/amel,amer,amsq,amur,amdr,al,au,ad,amu,am20
|
||||
c common/squarkhiggs_hdec/theb,amg,ionsh,idth
|
||||
common/trilinear_hdec/au00,ad00,au1,ad1
|
||||
common/hhss_hdec/flltt(2,2),fhhtt(2,2),flhtt(2,2)
|
||||
a0(am,xmu2)=am**2*(1+dlog(xmu2/am**2))
|
||||
cc0(q12,q22,q32,am1,am2,am3) = c03_hdec(q12,q32,q22,am1,am2,am3)
|
||||
nc = 3
|
||||
pi = 4*datan(1.d0)
|
||||
v=1.d0/dsqrt(dsqrt(2.d0)*gf)
|
||||
tgb = dtan(b)
|
||||
sb = dsin(b)
|
||||
cb = dcos(b)
|
||||
sa = dsin(a)
|
||||
ca = dcos(a)
|
||||
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
auu = au1
|
||||
c auu = au
|
||||
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
fac = 1
|
||||
c amt = fac*amt0
|
||||
amt = amt0
|
||||
xmu = amt
|
||||
ep = 1.d-0
|
||||
amh = amhh*ep
|
||||
aml = amhl*ep
|
||||
cof = nc/(4*pi)**2/v**3
|
||||
xx1 = 0
|
||||
xx2 = 0
|
||||
xm0 = ghll*amz**2/v
|
||||
c--2HDM
|
||||
dghll = -8*cof*amt**4*sa*ca**2/sb**3*(-2+3*dlog(xmu**2/amt**2))
|
||||
sigh = 2*cof*v*amt**2*ght*glt*(2*a0(amt,xmu**2)
|
||||
. +(4*amt**2-amh**2)*b02_hdec(amh**2,amt,amt,xmu**2))
|
||||
sigl = 2*cof*v*amt**2*ght*glt*(2*a0(amt,xmu**2)
|
||||
. +(4*amt**2-aml**2)*b02_hdec(aml**2,amt,amt,xmu**2))
|
||||
sig0 = 2*cof*v*amt**2*ght*glt*(2*a0(amt,xmu**2)
|
||||
. +4*amt**2*b02_hdec(0.d0,amt,amt,xmu**2))
|
||||
dzh = 2*cof*v*amt**2*ght*ght*(-b02_hdec(amh**2,amt,amt,xmu**2)
|
||||
. +(4*amt**2-amh**2)*bp02_hdec(amh**2,amt,amt,xmu**2))
|
||||
dzl = 2*cof*v*amt**2*glt*glt*(-b02_hdec(aml**2,amt,amt,xmu**2)
|
||||
. +(4*amt**2-aml**2)*bp02_hdec(aml**2,amt,amt,xmu**2))
|
||||
dad = -sig0/(amh**2-aml**2)
|
||||
dzheff = 2*cof*v*amt**2*ght*ght*(-b02_hdec(0.d0,amt,amt,xmu**2)
|
||||
. +4*amt**2*bp02_hdec(0.d0,amt,amt,xmu**2))
|
||||
dzleff = 2*cof*v*amt**2*glt*glt*(-b02_hdec(0.d0,amt,amt,xmu**2)
|
||||
. +4*amt**2*bp02_hdec(0.d0,amt,amt,xmu**2))
|
||||
dzeff = 2*cof*v*amt**2*ght*glt*(-b02_hdec(0.d0,amt,amt,xmu**2)
|
||||
. +4*amt**2*bp02_hdec(0.d0,amt,amt,xmu**2))
|
||||
xm1 = 8*cof*amt**4*sa*ca**2/sb**3*(b02_hdec(amh**2,amt,amt,xmu**2)
|
||||
. + 2*b02_hdec(aml**2,amt,amt,xmu**2)
|
||||
. + (4*amt**2-amh**2/2-aml**2)*dreal(
|
||||
. cc0(amh**2,aml**2,aml**2,amt,amt,amt)))
|
||||
xm2 = ghll*(dzh/2+dzl) + glll*(sigh/(amh**2-aml**2)+dad)
|
||||
. - 2*glhh*(sigl/(amh**2-aml**2)+dad)
|
||||
xm3 = dghll
|
||||
xm4 = ghll*(-dzheff/2-dzleff) - glll*amh**2*dzeff/(amh**2-aml**2)
|
||||
. + 2*glhh*aml**2*dzeff/(amh**2-aml**2)
|
||||
xx1 = xm1+xm2+xm3+xm4
|
||||
c write(6,*)'hh1: ',2*xm1/xm0,2*xm2/xm0,2*xm3/xm0,2*xm4/xm0
|
||||
if(imssm.ne.0)then
|
||||
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
c am1 = fac*dsqrt((amsq**2+amur**2+2*amt**2
|
||||
c . -dsqrt((amsq**2-amur**2)**2+4*amt**2*(au-amu*cb/sb)**2))/2)
|
||||
c am2 = fac*dsqrt((amsq**2+amur**2+2*amt**2
|
||||
c . +dsqrt((amsq**2-amur**2)**2+4*amt**2*(au-amu*cb/sb)**2))/2)
|
||||
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
am1 = fac*amst1
|
||||
am2 = fac*amst2
|
||||
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
qt = (am1+am2)/2
|
||||
rmt = runm_hdec(qt,6,1)
|
||||
ct = (auu-amu*cb/sb)/(am1**2-am2**2)
|
||||
dt = (auu+amu*sb/cb)/(am1**2-am2**2)
|
||||
et = (auu-amu*ca/sa)/(am1**2-am2**2)
|
||||
ft = (auu+amu*sa/ca)/(am1**2-am2**2)
|
||||
gt = 2 + (am1**2+am2**2)/(am1**2-am2**2)*dlog(am2**2/am1**2)
|
||||
c sth = stht
|
||||
c cth = ctht
|
||||
c s2t = 2*sth*cth
|
||||
c c2t = cth**2-sth**2
|
||||
s2t = 2*rmt*ct
|
||||
c2t = dsqrt(1-s2t**2)
|
||||
if((amsq**2-amur**2)/(am1**2-am2**2).lt.0.d0) c2t = -c2t
|
||||
xlim = 1.d-10
|
||||
if(dabs(1-s2t**2).le.xlim) c2t = 0
|
||||
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
glrl = rmt/2*(auu*glt+amu*ght)
|
||||
glrh = rmt/2*(auu*ght-amu*glt)
|
||||
g11l = rmt**2*glt + glrl*s2t
|
||||
g22l = rmt**2*glt - glrl*s2t
|
||||
g12l = glrl*c2t
|
||||
g11h = rmt**2*ght + glrh*s2t
|
||||
g22h = rmt**2*ght - glrh*s2t
|
||||
g12h = glrh*c2t
|
||||
f11ll = rmt**2*glt*glt
|
||||
f12ll = 0
|
||||
f22ll = rmt**2*glt*glt
|
||||
f11hh = rmt**2*ght*ght
|
||||
f12hh = 0
|
||||
f22hh = rmt**2*ght*ght
|
||||
f11lh = rmt**2*glt*ght
|
||||
f12lh = 0
|
||||
f22lh = rmt**2*glt*ght
|
||||
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
c g11l = amz**2*gltt(1,1)
|
||||
c g22l = amz**2*gltt(2,2)
|
||||
c g12l = amz**2*gltt(1,2)
|
||||
c g11h = amz**2*ghtt(1,1)
|
||||
c g22h = amz**2*ghtt(2,2)
|
||||
c g12h = amz**2*ghtt(1,2)
|
||||
c f11ll = amz**2*flltt(1,1)
|
||||
c f22ll = amz**2*flltt(2,2)
|
||||
c f12ll = amz**2*flltt(1,2)
|
||||
c f11hh = amz**2*fhhtt(1,1)
|
||||
c f22hh = amz**2*fhhtt(2,2)
|
||||
c f12hh = amz**2*fhhtt(1,2)
|
||||
c f11lh = amz**2*flhtt(1,1)
|
||||
c f22lh = amz**2*flhtt(2,2)
|
||||
c f12lh = amz**2*flhtt(1,2)
|
||||
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
tl1 = dlog(am1**2/xmu**2)
|
||||
tl2 = dlog(am2**2/xmu**2)
|
||||
delta = 1 - 4*amt**2*(auu-amu*cb/sb)**2/(am2**2-am1**2)**2
|
||||
d_hlhlhh = delta*((am1**2-am2**2)*ft*(2*et+ft)*(tl1-tl2)
|
||||
. +3*(am1**2-am2**2)**2*ct*et*ft**2*gt)
|
||||
dtghll =-4*cof*rmt**4*sa*ca**2/sb**3
|
||||
. * (3*(tl1+tl2)+(am1**2-am2**2)*ct*(et+2*ft)*(tl1-tl2)
|
||||
. +d_hlhlhh + 2*(amt**2/am1**2*(1+(am1**2-am2**2)*ct*et)
|
||||
. *(1+(am1**2-am2**2)*ct*ft)**2
|
||||
. +amt**2/am2**2*(1-(am1**2-am2**2)*ct*et)
|
||||
. *(1-(am1**2-am2**2)*ct*ft)**2))
|
||||
tsigh =-2*cof*v*(f11lh*a0(am1,xmu**2)+f22lh*a0(am2,xmu**2)
|
||||
. +2*g11l*g11h*b02_hdec(amh**2,am1,am1,xmu**2)
|
||||
. +2*g22l*g22h*b02_hdec(amh**2,am2,am2,xmu**2)
|
||||
. +4*g12l*g12h*b02_hdec(amh**2,am1,am2,xmu**2))
|
||||
tsigl =-2*cof*v*(f11lh*a0(am1,xmu**2)+f22lh*a0(am2,xmu**2)
|
||||
. +2*g11l*g11h*b02_hdec(aml**2,am1,am1,xmu**2)
|
||||
. +2*g22l*g22h*b02_hdec(aml**2,am2,am2,xmu**2)
|
||||
. +4*g12l*g12h*b02_hdec(aml**2,am1,am2,xmu**2))
|
||||
tsig0 =-2*cof*v*(f11lh*a0(am1,xmu**2)+f22lh*a0(am2,xmu**2)
|
||||
. +2*g11l*g11h*b02_hdec(0.d0,am1,am1,xmu**2)
|
||||
. +2*g22l*g22h*b02_hdec(0.d0,am2,am2,xmu**2)
|
||||
. +4*g12l*g12h*b02_hdec(0.d0,am1,am2,xmu**2))
|
||||
dtzh =-4*cof*v*(g11h*g11h*bp02_hdec(amh**2,am1,am1,xmu**2)
|
||||
. +g22h*g22h*bp02_hdec(amh**2,am2,am2,xmu**2)
|
||||
. +2*g12h*g12h*bp02_hdec(amh**2,am1,am2,xmu**2))
|
||||
dtzl =-4*cof*v*(g11l*g11l*bp02_hdec(aml**2,am1,am1,xmu**2)
|
||||
. +g22l*g22l*bp02_hdec(aml**2,am2,am2,xmu**2)
|
||||
. +2*g12l*g12l*bp02_hdec(aml**2,am1,am2,xmu**2))
|
||||
dtad = -tsig0/(amh**2-aml**2)
|
||||
dtzheff =-4*cof*v*(g11h*g11h*bp02_hdec(0.d0,am1,am1,xmu**2)
|
||||
. +g22h*g22h*bp02_hdec(0.d0,am2,am2,xmu**2)
|
||||
. +2*g12h*g12h*bp02_hdec(0.d0,am1,am2,xmu**2))
|
||||
dtzleff =-4*cof*v*(g11l*g11l*bp02_hdec(0.d0,am1,am1,xmu**2)
|
||||
. +g22l*g22l*bp02_hdec(0.d0,am2,am2,xmu**2)
|
||||
. +2*g12l*g12l*bp02_hdec(0.d0,am1,am2,xmu**2))
|
||||
dtzeff =-4*cof*v*(g11l*g11h*bp02_hdec(0.d0,am1,am1,xmu**2)
|
||||
. +g22l*g22h*bp02_hdec(0.d0,am2,am2,xmu**2)
|
||||
. +2*g12l*g12h*bp02_hdec(0.d0,am1,am2,xmu**2))
|
||||
ym1 =-16*cof*(
|
||||
. g11h*g11l*g11l*dreal(cc0(amh**2,aml**2,aml**2,am1,am1,am1))
|
||||
. +g11h*g12l*g12l*dreal(cc0(amh**2,aml**2,aml**2,am1,am1,am2))
|
||||
. +g12h*g11l*g12l*dreal(cc0(amh**2,aml**2,aml**2,am1,am2,am1))
|
||||
. +g12h*g12l*g11l*dreal(cc0(amh**2,aml**2,aml**2,am2,am1,am1))
|
||||
. +g22h*g12l*g12l*dreal(cc0(amh**2,aml**2,aml**2,am2,am2,am1))
|
||||
. +g12h*g22l*g12l*dreal(cc0(amh**2,aml**2,aml**2,am2,am1,am2))
|
||||
. +g12h*g12l*g22l*dreal(cc0(amh**2,aml**2,aml**2,am1,am2,am2))
|
||||
. +g22h*g22l*g22l*dreal(cc0(amh**2,aml**2,aml**2,am2,am2,am2))
|
||||
. )
|
||||
ym2 =-4*cof*(g11h*f11ll*b02_hdec(amh**2,am1,am1,xmu**2)
|
||||
. +2*g12h*f12ll*b02_hdec(amh**2,am1,am2,xmu**2)
|
||||
. +g22h*f22ll*b02_hdec(amh**2,am2,am2,xmu**2)
|
||||
. +2*g11l*f11lh*b02_hdec(aml**2,am1,am1,xmu**2)
|
||||
. +4*g12l*f12lh*b02_hdec(aml**2,am1,am2,xmu**2)
|
||||
. +2*g22l*f22lh*b02_hdec(aml**2,am2,am2,xmu**2))
|
||||
ym3 = dtghll
|
||||
ym4 = ghll*(dtzh/2+dtzl) + glll*(tsigh/(amh**2-aml**2)+dtad)
|
||||
. - 2*glhh*(tsigl/(amh**2-aml**2)+dtad)
|
||||
ym5 = ghll*(-dtzheff/2-dtzleff)
|
||||
. - glll*amh**2*dtzeff/(amh**2-aml**2)
|
||||
. + 2*glhh*aml**2*dtzeff/(amh**2-aml**2)
|
||||
xx2 = ym1+ym2+ym3+ym4+ym5
|
||||
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
c mst12 = am1**2
|
||||
c mst22 = am2**2
|
||||
c mt = amt
|
||||
c lt = dlog(amt**2/xmu**2)
|
||||
c lst1 = dlog(am1**2/xmu**2)
|
||||
c lst2 = dlog(am2**2/xmu**2)
|
||||
c at = au
|
||||
|
||||
c t1_s1s1s1=(-8*(2*((mst12-mst22)**2+6*gt*mst12*mst22)*ct**2*mt**
|
||||
c . 2-3*gt*mst12*mst22)*(at-ct*mst12+ct*mst22)**3*ct*mt**4)/((
|
||||
c . mst12-mst22)*(sb+1)*(sb-1)*cb*mst12*mst22*v**3)
|
||||
|
||||
c t1_s1s1s2=(8*(12*at*ct**3*gt*mst12**2*mst22*mt**2+12*at*ct**3*
|
||||
c . gt*mst12*mst22**2*mt**2+2*at*ct**3*mst12**3*mt**2-2*at*ct**3*
|
||||
c . mst12**2*mst22*mt**2-2*at*ct**3*mst12*mst22**2*mt**2+2*at*ct**
|
||||
c . 3*mst22**3*mt**2-3*at*ct*gt*mst12**2*mst22-3*at*ct*gt*mst12*
|
||||
c . mst22**2-4*ct**2*gt*mst12**2*mst22*mt**2+4*ct**2*gt*mst12*
|
||||
c . mst22**2*mt**2-2*ct**2*mst12**3*mt**2+6*ct**2*mst12**2*mst22*
|
||||
c . mt**2-6*ct**2*mst12*mst22**2*mt**2+2*ct**2*mst22**3*mt**2+gt*
|
||||
c . mst12**2*mst22-gt*mst12*mst22**2-2*mst12**2*mst22+2*mst12*
|
||||
c . mst22**2)*(at-ct*mst12+ct*mst22)**2*mt**4)/((mst12+mst22)*(
|
||||
c . mst12-mst22)*(sb+1)*(sb-1)*mst12*mst22*sb*v**3)
|
||||
|
||||
c t1_s1s2s2=(8*(12*at**2*ct**3*gt*mst12**2*mst22*mt**2+12*at**2*
|
||||
c . ct**3*gt*mst12*mst22**2*mt**2+2*at**2*ct**3*mst12**3*mt**2-2*
|
||||
c . at**2*ct**3*mst12**2*mst22*mt**2-2*at**2*ct**3*mst12*mst22**2*
|
||||
c . mt**2+2*at**2*ct**3*mst22**3*mt**2-3*at**2*ct*gt*mst12**2*
|
||||
c . mst22-3*at**2*ct*gt*mst12*mst22**2-8*at*ct**2*gt*mst12**2*
|
||||
c . mst22*mt**2+8*at*ct**2*gt*mst12*mst22**2*mt**2-4*at*ct**2*
|
||||
c . mst12**3*mt**2+12*at*ct**2*mst12**2*mst22*mt**2-12*at*ct**2*
|
||||
c . mst12*mst22**2*mt**2+4*at*ct**2*mst22**3*mt**2+2*at*gt*mst12**
|
||||
c . 2*mst22-2*at*gt*mst12*mst22**2-4*at*mst12**2*mst22+4*at*mst12*
|
||||
c . mst22**2+ct*gt*mst12**3*mst22-2*ct*gt*mst12**2*mst22**2+ct*gt*
|
||||
c . mst12*mst22**3-2*ct*mst12**3*mst22+2*ct*mst12**3*mt**2+4*ct*
|
||||
c . mst12**2*mst22**2-2*ct*mst12**2*mst22*mt**2-2*ct*mst12*mst22**
|
||||
c . 3-2*ct*mst12*mst22**2*mt**2+2*ct*mst22**3*mt**2)*(at-ct*mst12+
|
||||
c . ct*mst22)*mt**4)/((mst12+mst22)*(mst12-mst22)*cb*mst12*mst22*
|
||||
c . sb**2*v**3)
|
||||
|
||||
c t1_s2s2s2=(8*((2*(mst12**2*mst22+mst12**2*mt**2-5*mst12*mst22**
|
||||
c . 2+2*mst12*mst22*mt**2+mst22**2*mt**2)-3*(mst12-mst22)*gt*mst12
|
||||
c . *mst22+6*(lst2-lt)*(mst12+mst22)*mst12*mst22+3*(2*(mst12*mst22
|
||||
c . -mst12*mt**2-mst22*mt**2)-gt*mst12*mst22)*(mst12-mst22)*at*ct+
|
||||
c . 3*(2*((mst12-mst22)**2+2*gt*mst12*mst22)*ct**2*mt**2-(gt-2)*
|
||||
c . mst12*mst22)*at**2)*(mst12-mst22)-(2*((mst12-mst22)**2+6*gt*
|
||||
c . mst12*mst22)*ct**2*mt**2-3*gt*mst12*mst22)*(mst12+mst22)*at**3
|
||||
c . *ct)*mt**4)/((mst12+mst22)*(mst12-mst22)*mst12*mst22*sb**3*v**
|
||||
c . 3)
|
||||
|
||||
c t2_s2s2s2 =-16*mt**4/v**3/sb**3*(3*lt+2)
|
||||
c t1_s2s2s2=t1_s2s2s2-t2_s2s2s2
|
||||
|
||||
c t1_hlhlhh = -sa*ca**2*t1_s2s2s2 - ca*(ca**2-2*sa**2)*t1_s1s2s2
|
||||
c . +sa*(2*ca**2-sa**2)*t1_s1s1s2 - sa**2*ca*t1_s1s1s1
|
||||
c t1_hlhlhh = t1_hlhlhh*v**3/2*cof
|
||||
c write(6,*)t1_hlhlhh
|
||||
c write(6,*)dtghll
|
||||
c write(6,*)
|
||||
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
c write(6,*)'hh2: ',2*(ym1+ym2)/xm0,2*ym3/xm0,2*ym4/xm0,2*ym5/xm0
|
||||
c write(6,*)'hh: ',ym1,ym2,ym3,ym4,ym5
|
||||
c write(6,*)
|
||||
c write(6,*)ym1+ym2,ym4
|
||||
c write(6,*)ym3,ym5
|
||||
c write(6,*)
|
||||
c write(6,*)dtzh,dtzl
|
||||
c write(6,*)dtzheff,dtzleff
|
||||
c write(6,*)
|
||||
c write(6,*)tsigh/(amh**2-aml**2),tsigl/(amh**2-aml**2)
|
||||
c write(6,*)dtad,dtad
|
||||
c write(6,*)dtad-dtzeff/(amh**2-aml**2),dtad-dtzeff/(amh**2-aml**2)
|
||||
c write(6,*)
|
||||
c write(6,*)am1,am2
|
||||
c write(6,*)
|
||||
endif
|
||||
dummy = 2*(xx1+xx2)/xm0
|
||||
h2hh_hdec = dummy
|
||||
c hlo=gf/16/dsqrt(2d0)/pi*amz**4/amh*beta_hdec(aml**2/amh**2)
|
||||
c . *ghll**2
|
||||
c write(6,*)hlo,hlo*(1+dummy),1+dummy
|
||||
return
|
||||
end
|
||||
|
||||
BIN
zzz/h2hh.o
Normal file
BIN
zzz/h2hh.o
Normal file
Binary file not shown.
989
zzz/haber.f
Normal file
989
zzz/haber.f
Normal file
@@ -0,0 +1,989 @@
|
||||
SUBROUTINE HABER(TANB,SA,CA)
|
||||
|
||||
C PROGRAM HMSUSY
|
||||
C WRITTEN BY HOWARD E. HABER
|
||||
C LATEST REVISION: AUGUST 28, 1995
|
||||
C COMMENTS OR QUESTIONS: SEND E-MAIL TO HABER@SCIPP.UCSC.EDU
|
||||
C BASED ON WORK IN COLLABORATION WITH R. HEMPFLING AND A. HOANG
|
||||
C
|
||||
IMPLICIT REAL*8 (A-H,O-Z)
|
||||
COMMON/ANG/ SINA,COSA,SIN2A,COS2A,SINBPA,COSBPA,SINBMA,COSBMA
|
||||
COMMON/HINT3/HLAA,HHAA,HLHLHL,HHHLHL,HHHHHL,HHHHHH,
|
||||
1 HHHPHM,HLHPHM
|
||||
COMMON/SQPARM/ SQM,SQK,SQU,SQD,XMU,STA2,STB2,SBA2,SBB2
|
||||
COMMON/QMASS/ TMPOLE
|
||||
DIMENSION H(4)
|
||||
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
COMMON/HMASS_HDEC/AMSM,AMA,AML,AMH,AMCH,AMAR
|
||||
COMMON/BREAK_HDEC/AMEL,AMER,AMSQ,AMUR,AMDR,AL,AU,AD,AMU,AM2
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
C
|
||||
C IRC=0 TREE LEVEL ONLY
|
||||
C IRC=-1 RADIATIVE CORRECTIONS INCLUDED WITHOUT RGE IMPROVEMENT
|
||||
C IRC=1 RADIATIVE CORRECTIONS INCLUDED WITH RGE IMPROVEMENT
|
||||
C IRC=2 SLIGHT IMPROVEMENT OF TREATMENT OF STOP-SBOTTOM SECTOR
|
||||
C WITH (IRC=-2: WITHOUT) RGE IMPROVEMENT
|
||||
C IRC=3 ELLIS, RIDOLFI, AND ZWIRNER LEADING MT**4 AND MB**4
|
||||
C CORRECTIONS WITH (IRC=-3: WITHOUT) RGE IMPROVEMENT
|
||||
C
|
||||
C DO 838 IRC= -1,1,2
|
||||
C
|
||||
C INPUT THE MASS OF THE CP-ODD SCALAR
|
||||
C
|
||||
C DO 838 IH=2,2
|
||||
C IF (IH .EQ. 1) AM= 50.D0
|
||||
C IF (IH .EQ. 2) AM= 1000.D0
|
||||
C
|
||||
C INPUT THE IMPORTANT PARAMETER TANB
|
||||
C
|
||||
C DO 838 ITB= 1,1
|
||||
C IF (ITB .EQ. 1) TANB= 1.5D0
|
||||
C IF (ITB .EQ. 2) TANB= 20.D0
|
||||
C TANB= 10.D0*DFLOAT(ITB)
|
||||
C
|
||||
C INPUT THE SQUARK MIXING A-PARAMETERS (B AND T SECTORS ONLY)
|
||||
C IN UNITS OF THE SUPERSYMMETRY BREAKING SCALE PARAMETER (SUSY)
|
||||
C
|
||||
C DO 838 IAT= 0,0
|
||||
C AA= 0.4*DFLOAT(IAT)
|
||||
C DO 838 ISQ=0,9
|
||||
C SUSY= 200.D0+100.D0*DFLOAT(ISQ)
|
||||
C IF (ISQ .EQ. 9) SUSY= 2000.D0
|
||||
C AT= AA*SUSY
|
||||
C AB= AT
|
||||
C
|
||||
C MU PARAMETER SET TO SIGNMU*SUSY
|
||||
C IN PRINCIPLE, CAN CHOOSE ANY MU, ALTHOUGH IF DABS(SIGNMU) IS
|
||||
C NOT 1, THEN CONTRIBUTIONS OF GAUGINOS AND HIGGSINOS
|
||||
C TO THE RADIATIVE CORRECTIONS MUST BE MODIFIED (SLIGHTLY)
|
||||
C
|
||||
C DO 838 IMU= 1,1
|
||||
C SIGNMU= -1.D0*DFLOAT(IMU)
|
||||
C
|
||||
C SQUARK MASS PARAMETERS SET IN SETUP SUBROUTINE
|
||||
C PARAMETERS DEPOSITED IN COMMON/SQPARM/
|
||||
C SQM= COMMON SQUARK/SLEPTON MASS (APART FROM B AND T SECTORS)
|
||||
C SQK= SQUARK SU(2)-DOUBLET SOFT-SUSY-BREAKING MASS
|
||||
C SQU= TOP-SQUARK SU(2)-SINGLET SOFT-SUSY-BREAKING MASS
|
||||
C SQD= BOTTOM-SQUARK SU(2)-SINGLET SOFT-SUSY-BREAKING MASS
|
||||
C SUSY= COMMON GAUGINO/HIGGSINO MASS SCALE
|
||||
C
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
IRC= 2
|
||||
AM = AMA
|
||||
SUSY = AMSQ
|
||||
AT = SUSY
|
||||
AB = SUSY
|
||||
SIGNMU = 1
|
||||
IF(AMU.LT.0.D0)SIGNMU = -1
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
CALL SETUP(IRC,TANB,TM,SIGNMU,SUSY)
|
||||
C
|
||||
C INITIALLY, ALL FIVE SUSY-BREAKING MASSES SET EQUAL.
|
||||
C THIS CAN BE CHANGED EITHER RIGHT HERE OR DIRECTLY IN THE
|
||||
C SETUP SUBROUTINE.
|
||||
C
|
||||
C SUBROUTINE HSUSY COMPUTES HIGGS MASSES AND COUPLINGS
|
||||
C IT COMPUTES STOP AND SBOTTOM SPECTRUM FIRST, AND DEPOSITS THE
|
||||
C RESULTS IN COMMON/SQPARM/. OUTPUT IS:
|
||||
C STA2,STB2= TOP-SQUARK SQUARED-MASSES
|
||||
C SBA2,SBB2= BOTTOM-SQUARK SQUARED-MASSES
|
||||
C NEXT IT COMPUTES THE HIGGS MASSES AND PUTS THEM IN THE ARRAY H()
|
||||
C H(1)= HEAVY CP-EVEN MASS
|
||||
C H(2)= LIGHT CP-EVEN MASS
|
||||
C H(3)= CP-ODD MASS (INPUT AS "AM" ABOVE)
|
||||
C H(4)= CHARGED HIGGS MASS
|
||||
C MIXING ANGLE FACTORS THAT APPEAR IN HIGGS FEYNMAN RULES
|
||||
C DEPOSITED IN COMMON/ANG/. TANB IS INPUT, WHILE OUTPUT INCLUDES:
|
||||
C SINA= SIN(ALPHA) [ALPHA: CP-EVEN HIGGS MIXING ANGLE]
|
||||
C COSA= COS(ALPHA)
|
||||
C SIN2A= SIN(2*ALPHA)
|
||||
C COS2A= COS(2*ALPHA)
|
||||
C SINBPA= SIN(BETA+ALPHA)
|
||||
C COSBPA= COS(BETA+ALPHA)
|
||||
C SINBMA= SIN(BETA-ALPHA)
|
||||
C COSBMA= COS(BETA-ALPHA)
|
||||
C THREE-HIGGS COUPLING DEPOSITED IN COMMON/HINT3/. NOTATION:
|
||||
C HL= LIGHT CP-EVEN HIGGS
|
||||
C HH= HEAVY CP-EVEN HIGGS
|
||||
C A= CP-ODD HIGGS
|
||||
C HPHM= CHARGED HIGGS PAIR
|
||||
C FOR EXAMPLE, HLHPHM IS THE FEYNMAN RULE FOR THE INTERACTION OF
|
||||
C THE LIGHT CP-EVEN HIGGS WITH A CHARGED HIGGS PAIR (WITHOUT A
|
||||
C FACTOR OF I), HLHLHL IS THE THREE LIGHT CP-HIGGS COUPLING, ETC.
|
||||
C
|
||||
C IERR=0 IF THE PROGRAM SUCCEEDS. IF ONE FINDS A NEGATIVE
|
||||
C SQUARED MASS FOR ANY SCALAR (USUALLY, SCALAR-TOP, SCALAR-BOTTOM,
|
||||
C THE LIGHT CP-EVEN HIGGS OR THE CHARGED HIGGS), THE PROGRAM
|
||||
C RETURNS IERR>0.
|
||||
C
|
||||
CALL HMSUSY(IRC,AM,TM,TANB,SUSY,AT,AB,H,ALF,IERR)
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
AML = H(2)
|
||||
AMH = H(1)
|
||||
C AMA = H(3)
|
||||
AMCH = H(4)
|
||||
AMAR = H(3)
|
||||
SA = SINA
|
||||
CA = COSA
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
C
|
||||
C SLIGHT INACCURACIES OF THE PROGRAM:
|
||||
C 1. IRC=2 SLIGHTLY IMPROVES NEUTRAL SCALAR MASSES, BUT
|
||||
C NO IMPROVEMENT YET FOR CHARGED SCALAR MASSES.
|
||||
C 2. LEADING LOGS FOR CHARGED SCALAR MASS CORRECT ONLY
|
||||
C IF M(A)=O(ZMASS).
|
||||
C 3. LEADING LOGS FOR HEAVY CP-EVEN SCALAR MASS CORRECT ONLY
|
||||
C IF M(A)=O(ZMASS).
|
||||
C IN CASES 2 AND 3, THE RELATIVE ERROR MADE IS RATHER MINOR,
|
||||
C SINCE HEAVY SCALARS ARE ROUGHLY DEGENERATE WITH THE CP-ODD SCALAR.
|
||||
C 4. NO DETAILED STUDY YET OF ACCURACY OF RGE-IMPROVEMENT VIA
|
||||
C THE USE OF MT(Q) FOR WIDELY SPLIT SQK, SQU, AND SQD
|
||||
C
|
||||
IF (STB2 .LT. 0.D0) GO TO 838
|
||||
IF (SBB2 .LT. 0.D0) GO TO 838
|
||||
STOP1= DSQRT(STA2)
|
||||
STOP2= DSQRT(STB2)
|
||||
SBOT1= DSQRT(SBA2)
|
||||
SBOT2= DSQRT(SBB2)
|
||||
IF (IERR .GT. 0) GO TO 838
|
||||
C 500 WRITE(6,565) H(2),H(1),H(3),H(4),TANB,AA,SUSY,XMU
|
||||
C 500 WRITE(6,565) H(2),H(3),TANB,AA,SUSY,XMU,H(4),STOPB
|
||||
C 500 WRITE(6,564) IRC,H(2),H(3),TANB,TM,AT,SUSY,XMU
|
||||
C 500 WRITE(6,565) XMU,H(3),H(2) ,H(4),TANB,AT,AB,SUSY
|
||||
C WRITE(6,565) SQK,SQU,SQD,XMU,STOP1,STOP2,SBOT1,SBOT2
|
||||
564 FORMAT(I2,7(F9.3,1X))
|
||||
565 FORMAT(8(F9.3,1X))
|
||||
838 CONTINUE
|
||||
C STOP
|
||||
RETURN
|
||||
END
|
||||
|
||||
SUBROUTINE SETUP(IRC,TANB,TMASS,SIGNMU,SUSY)
|
||||
IMPLICIT REAL*8 (A-H,O-Z)
|
||||
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
|
||||
COMMON/SQPARM/ SQM,SQK,SQU,SQD,XMU,STA2,STB2,SBA2,SBB2
|
||||
COMMON/QMASS/ TMPOLE
|
||||
DATA PI/3.1415926535D0/
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
COMMON/PARAM_HDEC/GF0,ALPH0,AMTAU0,AMMUON0,AMZ0,AMW0
|
||||
COMMON/MASSES_HDEC/AMS0,AMC0,AMB0,AMT0
|
||||
COMMON/BREAK_HDEC/AMEL,AMER,AMSQ,AMUR,AMDR,AL,AU,AD,AMU,AM2
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
TMPOLE= AMT0
|
||||
BMASS= AMB0
|
||||
ALS=ALPHAS_HDEC(TMPOLE,3)
|
||||
SINW2 = 1-AMW0**2/AMZ0**2
|
||||
ALPHA = DSQRT(2.D0)*GF0/PI*AMW0**2*SINW2
|
||||
ZMASS= AMZ0
|
||||
WMASS= AMW0
|
||||
SQM= AMEL
|
||||
SQK= AMSQ
|
||||
SQU= AMUR
|
||||
SQD= AMDR
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
C TMPOLE= 175.D0
|
||||
C ALS=ALFS(TMPOLE)
|
||||
ASCORR= 1.D0+4.D0*ALS/(3.D0*PI)
|
||||
TMASS= TMPOLE/ASCORR
|
||||
C TMASST= TMPOLE/ASCORR
|
||||
C TMASS= TMPOLE
|
||||
C IF (IRC .GT. 0.D0) TMASS= TMASST
|
||||
C BMASS= 4.7D0
|
||||
C ALPHA= 1.D0/128.D0
|
||||
C SINW2= 0.23D0
|
||||
COSW2= 1.D0-SINW2
|
||||
COSW= DSQRT(COSW2)
|
||||
C ZMASS= 91.1888D0
|
||||
C WMASS= ZMASS*COSW
|
||||
W2= WMASS**2
|
||||
E2= 4.D0*PI*ALPHA
|
||||
G2= E2/SINW2
|
||||
GP2= E2/COSW2
|
||||
SINB= TANB/DSQRT(1.D0+TANB**2)
|
||||
COSB= 1.D0/DSQRT(1.D0+TANB**2)
|
||||
COTB= 1.D0/TANB
|
||||
C SQM= SUSY
|
||||
C SQK= SUSY
|
||||
C SQU= SUSY
|
||||
C SQD= SUSY
|
||||
XMU= SIGNMU*SUSY
|
||||
RETURN
|
||||
END
|
||||
C
|
||||
C IF CHARGED HIGGS MASS SQUARED IS NEGATIVE, PROGRAM RETURNS ZERO
|
||||
C
|
||||
SUBROUTINE HMSUSY(IRC,AMASS,TMASS,TANB,SUSY,AT,AB,H,ALF,IERR)
|
||||
IMPLICIT REAL*8 (A-H,O-Z)
|
||||
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
|
||||
COMMON/ANG/ SINA,COSA,SIN2A,COS2A,SINBPA,COSBPA,SINBMA,COSBMA
|
||||
COMMON/SQPARM/ SQM,SQK,SQU,SQD,XMU,STA2,STB2,SBA2,SBB2
|
||||
COMMON/HINT3/HLAA,HHAA,HLHLHL,HHHLHL,HHHHHL,HHHHHH,
|
||||
1 HHHPHM,HLHPHM
|
||||
COMMON/QMASS/ TMPOLE
|
||||
COMMON/TEST/ D11,D12,D22,DP
|
||||
DIMENSION H(4),DL(7)
|
||||
DATA PI/3.1415926535D0/, ZERO/0.D0/
|
||||
IERR= 0
|
||||
STEP= 0.D0
|
||||
IF (AMASS .GE. ZMASS) STEP= 1.D0
|
||||
Z2= ZMASS**2
|
||||
W2= WMASS**2
|
||||
A2= AMASS**2
|
||||
B2= BMASS**2
|
||||
COSW2= 1.D0-SINW2
|
||||
COS2W= COSW2-SINW2
|
||||
SINW= DSQRT(SINW2)
|
||||
COSW= DSQRT(COSW2)
|
||||
EU= 2.D0/3.D0
|
||||
ED= -1.D0/3.D0
|
||||
SINB2= SINB**2
|
||||
COSB2= COSB**2
|
||||
COS2B= COSB**2-SINB**2
|
||||
COS2B2= COS2B**2
|
||||
SIN2B= 2.D0*SINB*COSB
|
||||
TANB2= TANB**2
|
||||
COTB2= COTB**2
|
||||
S11= A2*SINB2+Z2*COSB2
|
||||
S22= A2*COSB2+Z2*SINB2
|
||||
S12= -(A2+Z2)*SINB*COSB
|
||||
SPM= A2+W2
|
||||
IF (IRC .NE. 0) GO TO 25
|
||||
CALL CPEVEN(S11,S22,S12,H1R,H2R,SIN2A,COS2A)
|
||||
DPM= SPM
|
||||
GO TO 50
|
||||
C
|
||||
C HERE WE ALLOW FOR
|
||||
C MIXING OF Q(L) AND Q(R) ONLY FOR THE S-TOP AND S-BOTTOM
|
||||
C OTHERWISE, THERE IS NO MIXING.
|
||||
C
|
||||
25 SUSY2= SUSY**2
|
||||
SQM2= SQM*SQM
|
||||
SQBL2= SQK**2+BMASS**2-Z2*COS2B*(0.5D0+ED*SINW2)
|
||||
SQBR2= SQD**2+BMASS**2+Z2*COS2B*ED*SINW2
|
||||
SQTL2= SQK**2+TMPOLE**2+Z2*COS2B*(0.5D0-EU*SINW2)
|
||||
SQTR2= SQU**2+TMPOLE**2+Z2*COS2B*EU*SINW2
|
||||
XB= AB-XMU*TANB
|
||||
XT= AT-XMU*COTB
|
||||
AB3= -XB*BMASS/(2.D0*WMASS)
|
||||
AT3= -XT*TMPOLE/(2.D0*WMASS)
|
||||
DIFFT= SQTL2-SQTR2
|
||||
DIFFB= SQBL2-SQBR2
|
||||
TMIX= -4.D0*AT3*WMASS
|
||||
BMIX= -4.D0*AB3*WMASS
|
||||
STA2= 0.5D0*(SQTL2+SQTR2+DSQRT(DIFFT**2+TMIX**2))
|
||||
STB2= 0.5D0*(SQTL2+SQTR2-DSQRT(DIFFT**2+TMIX**2))
|
||||
SBA2= 0.5D0*(SQBL2+SQBR2+DSQRT(DIFFB**2+BMIX**2))
|
||||
SBB2= 0.5D0*(SQBL2+SQBR2-DSQRT(DIFFB**2+BMIX**2))
|
||||
IF (SBB2 .LT. ZERO) GO TO 291
|
||||
IF (STB2 .LT. ZERO) GO TO 292
|
||||
SQT1= DSQRT(STA2)
|
||||
SQT2= DSQRT(STB2)
|
||||
SQB1= DSQRT(SBA2)
|
||||
SQB2= DSQRT(SBB2)
|
||||
SQTM2= SQT1*SQT2
|
||||
SQBM2= SQB1*SQB2
|
||||
SQTBM2= DSQRT(SQTM2*SQBM2)
|
||||
SMT2= 0.5D0*(SQK**2+SQU**2)
|
||||
SMT= DSQRT(SMT2)
|
||||
QP= DSQRT(SMT*TMPOLE)
|
||||
TMASS1= TMASSR(QP,TMASS)
|
||||
IF (IRC .LE. 0) TMASS1= TMASS
|
||||
T2= TMASS1**2
|
||||
TMASS2= TMASSR(SMT,TMASS)
|
||||
IF (IRC .LE. 0) TMASS2= TMASS
|
||||
COLOR= 3.D0
|
||||
GENS= 3.D0
|
||||
PT= COLOR*(1.D0-4.D0*EU*SINW2+8.D0*EU**2*SINW2**2)
|
||||
PB= COLOR*(1.D0+4.D0*ED*SINW2+8.D0*ED**2*SINW2**2)
|
||||
PF= (GENS-1.D0)*(PT+PB)+2.D0*GENS*(1.D0-2.D0*SINW2+4.D0*SINW2**2)
|
||||
P22= -2.D0*(32.D0*SINW2**2-54.D0*SINW2+27.D0)
|
||||
P12= -2.D0*(8.D0*SINW2**2-6.D0*SINW2-9.D0)
|
||||
P2H= -10.D0+2.D0*SINW2-2*SINW2**2
|
||||
P2HP= 8.D0-22.D0*SINW2+10.D0*SINW2**2
|
||||
P1H= -9.D0*COS2B2**2+(1.D0-2.D0*SINW2+2.D0*SINW2**2)*COS2B2
|
||||
PH12= (P1H-P2H)*STEP
|
||||
PH12P= (P1H+P2HP)*STEP
|
||||
FACT= COLOR*G2/(16.D0*PI**2*W2)
|
||||
FACT1= COLOR*G2*T2/(32.D0*PI**2*COSW2*SINB2)
|
||||
FACT2= COLOR*G2*B2/(32.D0*PI**2*COSW2*COSB2)
|
||||
FACTT= G2*Z2*SINB2/(96.D0*PI**2*COSW2)
|
||||
FACBB= G2*Z2*COSB2/(96.D0*PI**2*COSW2)
|
||||
FACTBT= G2*Z2/(96.D0*PI**2*COSW2)
|
||||
DLOGW= DLOG(SUSY2/W2)
|
||||
DLOGZ= DLOG(SUSY2/Z2)
|
||||
DLOGF= DLOG(SQM2/Z2)
|
||||
DLOGFW= DLOG(SQM2/W2)
|
||||
C DLOGT= DLOG(SUSY2/T2)
|
||||
C DLOGTB= DLOG(SUSY2/T2)
|
||||
C DLOGB= DLOG(SUSY2/Z2)
|
||||
DLOGT= DLOG(SQTM2/T2)
|
||||
DLOGTB= DLOG(SQTBM2/T2)
|
||||
DLOGB= DLOG(SQBM2/Z2)
|
||||
DLOGA= DLOG(A2/Z2)
|
||||
IF (IABS(IRC) .NE. 3) GO TO 30
|
||||
XB2= XB**2
|
||||
XT2= XT**2
|
||||
AB2= AB**2
|
||||
AT2= AT**2
|
||||
XMU2= XMU**2
|
||||
DLBF= FH(SBA2,SBB2)
|
||||
DLTF= FH(STA2,STB2)
|
||||
DLBG= FG(SBA2,SBB2)
|
||||
DLTG= FG(STA2,STB2)
|
||||
T4= TMASS2**4/SINB2
|
||||
B4= BMASS**4/COSB2
|
||||
DH11= FACT*(B4*(AB2*XB2*DLBG+2.D0*AB*XB*DLBF)+T4*XMU2*XT2*DLTG)
|
||||
DH22= FACT*(T4*(AT2*XT2*DLTG+2.D0*AT*XT*DLTF)+B4*XMU2*XB2*DLBG)
|
||||
DH12= -XMU*FACT*(B4*XB*(DLBF+AB*XB*DLBG)+T4*XT*(DLTF+AT*XT*DLTG))
|
||||
DM11= S11+DH11+2.D0*FACT*B4*DLOGB
|
||||
DM22= S22+DH22+2.D0*FACT*T2**2*DLOGT/SINB2
|
||||
DM12= S12+DH12
|
||||
GO TO 40
|
||||
30 DNL22= 0.D0
|
||||
C
|
||||
C DNL22: MT**2 NON-LEADING LOG PIECE
|
||||
C
|
||||
DNL22= FACT*T2*Z2/(3.D0*SINB2)
|
||||
CALL DELUD(IRC,TANB,TMASS1,AT,AB,DUD11,DUD22,DUD12,DUDPM)
|
||||
CALL DELHM(IRC,TANB,TMASS2,AT,AB,DHZ11,DHZ22,DHZ12,DHZPM)
|
||||
DM11= S11+DHZ11+DUD11
|
||||
1 +(FACT*(2.D0*B2**2/COSB2-Z2*B2)+FACBB*PB)*DLOGB
|
||||
2 +FACBB*(PT*DLOGT+PF*DLOGF+P22*DLOGZ+PH12*DLOGA)
|
||||
DM22= S22+DHZ22+DUD22+DNL22
|
||||
1 +(FACT*(2.D0*T2**2/SINB2-Z2*T2)+FACTT*PT)*DLOGT
|
||||
2 +FACTT*(PB*DLOGB+PF*DLOGF+P22*DLOGZ+PH12*DLOGA)
|
||||
DM12= S12+DHZ12+DUD12
|
||||
1 +SINB*COSB*((FACT1-FACTBT*PT)*DLOGT
|
||||
2 +(FACT2-FACTBT*PB)*DLOGB-FACTBT*(PF*DLOGF+P12*DLOGZ)
|
||||
3 +FACTBT*PH12P*DLOGA)
|
||||
40 CALL CPEVEN(DM11,DM22,DM12,H1R,H2R,SIN2A,COS2A)
|
||||
FACTG= COLOR*G2/(32.D0*PI**2)
|
||||
FACTG2= G2/(48.D0*PI**2)
|
||||
FACTGP= 5.D0*GP2*W2/(16.D0*PI**2)
|
||||
XCG= COLOR*(GENS-1.D0)+GENS
|
||||
DPML= SPM+FACTG*(2.D0*T2*B2/(W2*SINB2*COSB2)-T2/SINB2-B2/COSB2
|
||||
1 +2.D0*W2/3.D0)*DLOGTB + FACTGP*DLOGW
|
||||
2 +FACTG2*(XCG*DLOGFW-9.D0*DLOGW)
|
||||
C CORRQ=-0.5D0*T2*(W2+A2*COSB2-4.D0*B2/COSB2)/(W2*SINB2)
|
||||
C 1 -(W2*(3.D0-5.D0*SINB2)/9.D0+2.D0*A2*COSB2/3.D0
|
||||
C 2 -0.5D0*B2*(4.D0-5.D0*SINB2)/COSB2)/SINB2
|
||||
C 3 -0.5D0*A2*(A2*COSB2/3.D0
|
||||
C 4 -B2*(4.D0*COSB2+3.D0*SINB2**2)/(2.D0*COSB2))/(W2*SINB2)
|
||||
C 5 +B2*(A2*SINB2*DLOG(T2/A2)-2.D0*B2*DLOG(T2/B2)/SINB2)
|
||||
C 6 /(W2*COSB2)
|
||||
C CORRSQ=T2**3/(2.D0*W2*SINB2*SMT2)
|
||||
C 1 +T2**2*(W2*(8.D0-5.D0*SINB2)-Z2*COS2B+A2*COSB2
|
||||
C 2 -3.D0*B2*(2.D0+SINB2)/COSB2)/(6.D0*W2*SINB2*SMT2)
|
||||
C DPMNL= FACTG*(CORRQ+CORRSQ)
|
||||
C DPM= DPML+DPMNL+DHZPM
|
||||
DPM= DPML+DHZPM
|
||||
50 SIGN= 1.D0
|
||||
IF (SIN2A .LT. 0.D0) SIGN= -1.D0
|
||||
C COSA= DSQRT((1.D0+COS2A)/2.D0)
|
||||
C SINA= SIGN*DSQRT((1.D0-COS2A)/2.D0)
|
||||
C ALF= SIGN*DACOS(COSA)
|
||||
ALF= 0.5D0*ATAN2(SIN2A,COS2A)
|
||||
COSA= COS(ALF)
|
||||
SINA= SIN(ALF)
|
||||
BET= DATAN(TANB)
|
||||
SINBPA= DSIN(BET+ALF)
|
||||
SINBMA= DSIN(BET-ALF)
|
||||
COSBPA= DCOS(BET+ALF)
|
||||
COSBMA= DCOS(BET-ALF)
|
||||
H(1)= DSQRT(H1R)
|
||||
IF (H2R .LT. ZERO) GO TO 293
|
||||
H(2)= DSQRT(H2R)
|
||||
H(3)= AMASS
|
||||
H(4)= 0.D0
|
||||
IF (DPM .LT. ZERO) GO TO 294
|
||||
H(4)= DSQRT(DPM)
|
||||
CALL HLAMBG(IRC,TANB,AMASS,TMASS1,TMASS2,SUSY,AT,AB,DL)
|
||||
CALL HIGGS3(IRC,H,DL)
|
||||
RETURN
|
||||
291 IERR=1
|
||||
WRITE(6,991)
|
||||
RETURN
|
||||
292 IERR=2
|
||||
WRITE(6,992)
|
||||
RETURN
|
||||
293 IERR= 3
|
||||
WRITE(6,993)
|
||||
RETURN
|
||||
294 IERR= 4
|
||||
WRITE(6,994)
|
||||
991 FORMAT(1X,'ERROR: S-BOTTOM MASS SQUARED EIGENVALUE IS NEGATIVE')
|
||||
992 FORMAT(1X,'ERROR: S-TOP MASS SQUARED EIGENVALUE IS NEGATIVE')
|
||||
993 FORMAT(1X,'ERROR: LIGHT CP-EVEN SCALAR SQUARED-MASS IS NEGATIVE')
|
||||
994 FORMAT(1X,'ERROR: CHARGED HIGGS SQUARED MASS IS NEGATIVE')
|
||||
RETURN
|
||||
END
|
||||
|
||||
SUBROUTINE CPEVEN(S11,S22,S12,H1,H2,SIN2A,COS2A)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DISCR= DSQRT((S11-S22)**2+4.D0*S12**2)
|
||||
H1= 0.5D0*(S11+S22+DISCR)
|
||||
H2= 0.5D0*(S11+S22-DISCR)
|
||||
SIN2A= 2.D0*S12/DISCR
|
||||
COS2A= (S11-S22)/DISCR
|
||||
RETURN
|
||||
END
|
||||
|
||||
SUBROUTINE DELHM(IRC,TANB,TMASS,AT,AB,DHZ11,DHZ22,DHZ12,DHZPM)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
|
||||
COMMON/SQPARM/ SQM,SQK,SQU,SQD,XMU,STA2,STB2,SBA2,SBB2
|
||||
DATA PI/3.1415926535D0/
|
||||
W2= WMASS*WMASS
|
||||
Z2= ZMASS*ZMASS
|
||||
AT2= AT*AT
|
||||
AB2= AB*AB
|
||||
XMU2= XMU*XMU
|
||||
GSQ= G2+GP2
|
||||
EU= 2.D0/3.D0
|
||||
ED= -1.D0/3.D0
|
||||
COLOR= 3.D0
|
||||
CB2= COSB**2
|
||||
SB2= SINB**2
|
||||
T2= TMASS**2
|
||||
B2= BMASS**2
|
||||
T4= TMASS**4/SB2
|
||||
B4= BMASS**4/CB2
|
||||
T2D= TMASS**2/SB2
|
||||
B2D= BMASS**2/CB2
|
||||
XB= AB-XMU*TANB
|
||||
XT= AT-XMU*COTB
|
||||
YB= AB+XMU*COTB
|
||||
YT= AT+XMU*TANB
|
||||
XB2= XB**2
|
||||
XT2= XT**2
|
||||
Q2= SQK**2
|
||||
U2= SQU**2
|
||||
D2= SQD**2
|
||||
UF= FF_HABER(U2,Q2)
|
||||
DF= FF_HABER(D2,Q2)
|
||||
UG= FG(Q2,U2)
|
||||
DG= FG(Q2,D2)
|
||||
UKP= UF+2.D0*EU*SINW2*(Q2-U2)*UG
|
||||
DKP= DF-2.D0*ED*SINW2*(Q2-D2)*DG
|
||||
UH= FH(Q2,U2)
|
||||
DH= FH(Q2,D2)
|
||||
UB= BP(Q2,U2)
|
||||
DB= BP(Q2,D2)
|
||||
FPBPU= UF+UB
|
||||
FPBPD= DF+DB
|
||||
FMBPU= UF-UB
|
||||
FMBPD= DF-DB
|
||||
HUD= HP(Q2,U2,D2)
|
||||
FUD= FP(Q2,U2,D2)
|
||||
FACT= COLOR*G2/(16.D0*PI**2*W2)
|
||||
DHZPM= 0.5D0*FACT*(XMU2*(T4*UF+B4*DF+2.D0*T2D*B2D*HUD)
|
||||
1 -T2D*B2D*(AB2*DF+AT2*UF+2.D0*AT*AB*HUD+FUD*(XMU2-AT*AB)**2)
|
||||
2 -W2*B2D*(XMU2*FPBPD-AB2*FMBPD)
|
||||
3 -W2*T2D*(XMU2*FPBPU-AT2*FMBPU))
|
||||
IF (IABS(IRC) .NE. 2) GO TO 10
|
||||
TQ2= STA2
|
||||
BQ2= SBA2
|
||||
U2= STB2
|
||||
D2= SBB2
|
||||
UF= FF_HABER(U2,TQ2)
|
||||
DF= FF_HABER(D2,BQ2)
|
||||
UG= FG(TQ2,U2)
|
||||
DG= FG(BQ2,D2)
|
||||
UKP= UF+2.D0*EU*SINW2*(TQ2-U2)*UG
|
||||
DKP= DF-2.D0*ED*SINW2*(BQ2-D2)*DG
|
||||
UH= FH(TQ2,U2)
|
||||
DH= FH(BQ2,D2)
|
||||
UB= BP(TQ2,U2)
|
||||
DB= BP(BQ2,D2)
|
||||
10 DHZ11= FACT*(B4*AB*XB*(2.D0*DH+AB*XB*DG)+T4*XMU2*XT2*UG
|
||||
1 +Z2*(B2*AB*(XB*DKP-AB*DB)+T2*XMU*COTB*(XT*UKP-XMU*COTB*UB)))
|
||||
DHZ22= FACT*(T4*AT*XT*(2.D0*UH+AT*XT*UG)+B4*XMU2*XB2*DG
|
||||
1 +Z2*(T2*AT*(XT*UKP-AT*UB)+B2*XMU*TANB*(XB*DKP-XMU*TANB*DB)))
|
||||
DHZ12= -FACT*(B4*XMU*XB*(DH+AB*XB*DG)+T4*XMU*XT*(UH+AT*XT*UG)
|
||||
1 -0.5D0*Z2*(T2*COTB*((XMU2+AT2)*UB-XT*YT*UKP)
|
||||
2 +B2*TANB*((XMU2+AB2)*DB-XB*YB*DKP)))
|
||||
RETURN
|
||||
END
|
||||
|
||||
SUBROUTINE DELUD(IRC,TANB,TMASS,AT,AB,DHZ11,DHZ22,DHZ12,DHZPM)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
|
||||
COMMON/SQPARM/ SQM,SQK,SQU,SQD,XMU,STA2,STB2,SBA2,SBB2
|
||||
DATA PI/3.1415926535D0/
|
||||
SINB2= SINB**2
|
||||
COSB2= COSB**2
|
||||
W2= WMASS*WMASS
|
||||
Z2= ZMASS*ZMASS
|
||||
T2= TMASS**2
|
||||
B2= BMASS**2
|
||||
Q2= SQK**2
|
||||
U2= SQU**2
|
||||
D2= SQD**2
|
||||
EU= 2.D0/3.D0
|
||||
ED= -1.D0/3.D0
|
||||
COLOR= 3.D0
|
||||
FACT= COLOR*G2*Z2/(16.D0*PI**2*W2)
|
||||
FACTG= COLOR*G2/(64.D0*PI**2)
|
||||
DHZPM= FACTG*(T2/SINB2+B2/COSB2-2.D0*W2/3.D0)*DLOG(Q2**2/(U2*D2))
|
||||
IF (IABS(IRC) .EQ. 2) GO TO 50
|
||||
DHZ11= -FACT*(B2*(0.5D0+2.D0*ED*SINW2)*DLOG(Q2/D2))
|
||||
DHZ22= -FACT*(T2*(0.5D0-2.D0*EU*SINW2)*DLOG(Q2/U2))
|
||||
DHZ12= 0.5D0*FACT*(B2*TANB*(0.5D0+2.D0*ED*SINW2)*DLOG(Q2/D2)
|
||||
1 +T2*COTB*(0.5D0-2.D0*EU*SINW2)*DLOG(Q2/U2))
|
||||
RETURN
|
||||
50 DHZ11= -FACT*(B2*(0.5D0+2.D0*ED*SINW2)*DLOG(SBA2/SBB2))
|
||||
DHZ22= -FACT*(T2*(0.5D0-2.D0*EU*SINW2)*DLOG(STA2/STB2))
|
||||
DHZ12= 0.5D0*FACT*(B2*TANB*(0.5D0+2.D0*ED*SINW2)*DLOG(SBA2/SBB2)
|
||||
1 +T2*COTB*(0.5D0-2.D0*EU*SINW2)*DLOG(STA2/STB2))
|
||||
END
|
||||
|
||||
SUBROUTINE HLAMBG(IRC,TANB,AMASS,TM1,TM2,SUSY,AT,AB,DLT)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
|
||||
COMMON/SQPARM/ SQM,SQK,SQU,SQD,XMU,STA2,STB2,SBA2,SBB2
|
||||
COMMON/TEST/ D11,D12,D22,DP
|
||||
DIMENSION DL1(7),DL2(7),DL3(7),DL4(7),DLT(7)
|
||||
DATA PI/3.1415926535D0/
|
||||
C
|
||||
C DLN(3)= LAMBDA(3)+LAMBDA(4), N=1,...,4
|
||||
C DLN(4)= LAMBDA(5)-LAMBDA(4), N=1,...,4
|
||||
C
|
||||
GSQ= G2+GP2
|
||||
DLT(1)= 0.25D0*GSQ
|
||||
DLT(2)= 0.25D0*GSQ
|
||||
DLT(3)= -0.25D0*GSQ
|
||||
DLT(4)= 0.5D0*G2
|
||||
DLT(5)=0
|
||||
DLT(6)=0
|
||||
DLT(7)=0
|
||||
IF (IRC .EQ. 0) RETURN
|
||||
STEP= 0.D0
|
||||
IF (AMASS .GE. ZMASS) STEP= 1.D0
|
||||
A2= AMASS**2
|
||||
COSW2= 1.D0-SINW2
|
||||
T2= TM1**2
|
||||
B2= BMASS**2
|
||||
SUSY2= SUSY*SUSY
|
||||
SQM2= SQM*SQM
|
||||
SQTM2= DSQRT(STA2*STB2)
|
||||
SQBM2= DSQRT(SBA2*SBB2)
|
||||
W2= WMASS*WMASS
|
||||
Z2= ZMASS**2
|
||||
AT2= AT*AT
|
||||
AB2= AB*AB
|
||||
XMU2= XMU*XMU
|
||||
V2= 4.D0*W2/G2
|
||||
CB2= COSB**2
|
||||
SB2= SINB**2
|
||||
COS2B= COSB**2-SINB**2
|
||||
COS2B2= COS2B**2
|
||||
EU= 2.D0/3.D0
|
||||
ED= -1.D0/3.D0
|
||||
COLOR= 3.D0
|
||||
GENS= 3.D0
|
||||
PT= COLOR*(1.D0-4.D0*EU*SINW2+8.D0*EU**2*SINW2**2)
|
||||
PB= COLOR*(1.D0+4.D0*ED*SINW2+8.D0*ED**2*SINW2**2)
|
||||
PF= (GENS-1.D0)*(PT+PB)+2.D0*GENS*(1.D0-2.D0*SINW2+4.D0*SINW2**2)
|
||||
P22= -2.D0*(32.D0*SINW2**2-54.D0*SINW2+27.D0)
|
||||
P12= -2.D0*(8.D0*SINW2**2-6.D0*SINW2-9.D0)
|
||||
P2H= -10.D0+2.D0*SINW2-2*SINW2**2
|
||||
P2HP= 8.D0-22.D0*SINW2+10.D0*SINW2**2
|
||||
P1H= -9.D0*COS2B2**2+(1.D0-2.D0*SINW2+2.D0*SINW2**2)*COS2B2
|
||||
PH12= (P1H-P2H)*STEP
|
||||
PH12P= (P1H+P2HP)*STEP
|
||||
FACT= COLOR*G2/(16.D0*PI**2*W2*Z2)
|
||||
FACT1= COLOR*G2*T2/(32.D0*PI**2*COSW2*SB2*Z2)
|
||||
FACT2= COLOR*G2*B2/(32.D0*PI**2*COSW2*CB2*Z2)
|
||||
FACT3= G2/(96.D0*PI**2*COSW2)
|
||||
FACTC= COLOR*G2/(32.D0*PI**2)
|
||||
FACTC2= G2/(48.D0*PI**2)
|
||||
FACTPC= 5.D0*GP2/(16.D0*PI**2)
|
||||
DLOGW= DLOG(SUSY2/W2)
|
||||
DLOGZ= DLOG(SUSY2/Z2)
|
||||
DLOGF= DLOG(SQM2/Z2)
|
||||
DLOGFW= DLOG(SQM2/W2)
|
||||
DLOGT= DLOG(SQTM2/T2)
|
||||
DLOGB= DLOG(SQBM2/Z2)
|
||||
DLOGA= DLOG(A2/Z2)
|
||||
XCG= COLOR*(GENS-1.D0)+GENS
|
||||
DL1(1)= 0.25D0*GSQ*(1.D0
|
||||
1 +(FACT*(2.D0*B2**2/CB2-Z2*B2)/CB2+FACT3*PB)*DLOGB
|
||||
2 +FACT3*(PF*DLOGF+P22*DLOGZ+PT*DLOGT+PH12*DLOGA))
|
||||
DL1(2)= 0.25D0*GSQ*(1.D0
|
||||
1 +(FACT*(2.D0*T2**2/SB2-Z2*T2)/SB2+FACT3*PT)*DLOGT
|
||||
2 +FACT3*(PF*DLOGF+P22*DLOGZ+PB*DLOGB+PH12*DLOGA))
|
||||
DL1(3)= -0.25D0*GSQ*(1.D0
|
||||
1 -(FACT1-FACT3*PT)*DLOGT-(FACT2-FACT3*PB)*DLOGB
|
||||
2 +FACT3*(PF*DLOGF+P12*DLOGZ-PH12P*DLOGA))
|
||||
DL1(4)= 0.5D0*G2*(1.D0
|
||||
1 +FACTC*(2.D0*T2*B2/(W2**2*SB2*CB2)+2.D0/3.D0
|
||||
2 -(T2/SB2+B2/CB2)/W2)*DLOGT+FACTPC*DLOGW
|
||||
3 +FACTC2*(XCG*DLOGFW-9.D0*DLOGW))
|
||||
DL1(5)=0
|
||||
DL1(6)=0
|
||||
DL1(7)=0
|
||||
AFACT= COLOR/(16.D0*PI**2)
|
||||
HB2= 0.5D0*G2*B2/(W2*CB2)
|
||||
HT2= 0.5D0*G2*TM2**2/(W2*SB2)
|
||||
HB4= HB2*HB2
|
||||
HT4= HT2*HT2
|
||||
Q2= SQK**2
|
||||
U2= SQU**2
|
||||
D2= SQD**2
|
||||
UF= FF_HABER(U2,Q2)
|
||||
DF= FF_HABER(D2,Q2)
|
||||
UG= FG(Q2,U2)
|
||||
DG= FG(Q2,D2)
|
||||
UK= 0.25D0*(GSQ*UF+2.D0*EU*GP2*(Q2-U2)*UG)
|
||||
DK= 0.25D0*(GSQ*DF-2.D0*ED*GP2*(Q2-D2)*DG)
|
||||
UH= FH(Q2,U2)
|
||||
DH= FH(Q2,D2)
|
||||
UB= BP(Q2,U2)
|
||||
DB= BP(Q2,D2)
|
||||
A11= -AFACT*(HT2*XMU2*UB+HB2*AB2*DB)
|
||||
A22= -AFACT*(HT2*AT2*UB+HB2*XMU2*DB)
|
||||
DL2(1)= 0.5D0*GSQ*A11
|
||||
DL2(2)= 0.5D0*GSQ*A22
|
||||
DL2(3)= -0.25D0*GSQ*(A11+A22)
|
||||
DL2(4)= 0.5D0*G2*(A11+A22)
|
||||
DL2(5)= 0.D0
|
||||
DL2(6)= 0.D0
|
||||
DL2(7)= 0.D0
|
||||
DL3(1)= 2.D0*AFACT*(AB2*HB4*DH-HT2*XMU2*UK+HB2*AB2*DK)
|
||||
DL3(2)= 2.D0*AFACT*(AT2*HT4*UH-HB2*XMU2*DK+HT2*AT2*UK)
|
||||
DL3(3)= AFACT*(XMU2*(HB4*DH+HT4*UH)+HB2*(XMU2-AB2)*DK
|
||||
1 +HT2*(XMU2-AT2)*UK)
|
||||
DL3(4)= -0.5D0*AFACT*(4.D0*HB2*HT2*(AT*AB-XMU2)*HP(Q2,U2,D2)
|
||||
1 +HB2*DF*(2.D0*(HT2*AB2-HB2*XMU2)+G2*(XMU2-AB2))
|
||||
2 +HT2*UF*(2.D0*(HB2*AT2-HT2*XMU2)+G2*(XMU2-AT2)))
|
||||
DL3(5)= 0.D0
|
||||
DL3(6)= -AFACT*XMU*(HB4*AB*DH+HB2*AB*DK-HT2*AT*UK)
|
||||
DL3(7)= -AFACT*XMU*(HT4*AT*UH+HT2*AT*UK-HB2*AB*DK)
|
||||
DL4(1)= AFACT*(DG*(AB2*HB2)**2+UG*(XMU2*HT2)**2)
|
||||
DL4(2)= AFACT*(UG*(AT2*HT2)**2+DG*(XMU2*HB2)**2)
|
||||
DL4(3)= 2.D0*AFACT*XMU2*(AT2*HT4*UG+AB2*HB4*DG)
|
||||
DL4(4)= -AFACT*(HT2*HB2*(XMU2-AT*AB)**2*FP(Q2,U2,D2))
|
||||
DL4(5)= AFACT*XMU2*(AT2*HT4*UG+AB2*HB4*DG)
|
||||
DL4(6)= -AFACT*XMU*(AT*XMU2*HT4*UG+AB*AB2*HB4*DG)
|
||||
DL4(7)= -AFACT*XMU*(AB*XMU2*HB4*DG+AT*AT2*HT4*UG)
|
||||
DO 10 I=1,7
|
||||
10 DLT(I)= DL1(I)+DL2(I)+DL3(I)+DL4(I)
|
||||
D11= A2*SB2+V2*(DLT(1)*CB2+DLT(5)*SB2+2.D0*SINB*COSB*DLT(6))
|
||||
D22= A2*CB2+V2*(DLT(2)*SB2+DLT(5)*CB2+2.D0*SINB*COSB*DLT(7))
|
||||
D12= -A2*SINB*COSB+V2*(DLT(3)*SINB*COSB+DLT(6)*CB2+DLT(7)*SB2)
|
||||
DP= A2+0.5D0*V2*DLT(4)
|
||||
RETURN
|
||||
END
|
||||
C
|
||||
FUNCTION FF_HABER(X2,Y2)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DATA SMALL/1.D-4/
|
||||
FF_HABER= 0.D0
|
||||
IF (X2 .LE. 0.D0) GO TO 100
|
||||
IF (Y2 .LE. 0.D0) GO TO 100
|
||||
XYD= (X2-Y2)/Y2
|
||||
DXYD= DABS(XYD)
|
||||
IF (DXYD .LT. SMALL) GO TO 50
|
||||
FF_HABER= 1.D0/(X2-Y2)-X2*DLOG(X2/Y2)/(X2-Y2)**2
|
||||
RETURN
|
||||
50 FF_HABER= (-1.D0/2.D0+XYD/6.D0-XYD**2/12.D0+XYD**3/20.D0)/Y2
|
||||
RETURN
|
||||
100 WRITE(6,200)
|
||||
200 FORMAT(1X,'ERROR: ARGUMENTS OF FF-FUNCTION MUST BE POSITIVE')
|
||||
END
|
||||
C
|
||||
FUNCTION FFD(X2,Y2)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DATA SMALL/1.D-4/
|
||||
FFD= 0.D0
|
||||
IF (X2 .LE. 0.D0) GO TO 100
|
||||
IF (Y2 .LE. 0.D0) GO TO 100
|
||||
XYD= (X2-Y2)/Y2
|
||||
DXYD= DABS(XYD)
|
||||
IF (DXYD .LT. SMALL) GO TO 50
|
||||
FFD= 1.D0-X2*DLOG(X2/Y2)/(X2-Y2)
|
||||
RETURN
|
||||
50 FFD= -XYD/2.D0+XYD**2/6.D0-XYD**3/12.D0+XYD**4/20.D0
|
||||
RETURN
|
||||
100 WRITE(6,200)
|
||||
200 FORMAT(1X,'ERROR: ARGUMENTS OF FFD-FUNCTION MUST BE POSITIVE')
|
||||
END
|
||||
C
|
||||
FUNCTION FG(X2,Y2)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DATA SMALL/1.D-4/
|
||||
FG= 0.D0
|
||||
IF (X2 .LE. 0.D0) GO TO 100
|
||||
IF (Y2 .LE. 0.D0) GO TO 100
|
||||
XYD= (X2-Y2)/Y2
|
||||
DXYD= DABS(XYD)
|
||||
IF (DXYD .LT. SMALL) GO TO 50
|
||||
FG= 2.D0/(X2-Y2)**2-(X2+Y2)*DLOG(X2/Y2)/(X2-Y2)**3
|
||||
RETURN
|
||||
50 FG= (-1.D0/6.D0+XYD/6.D0-3.D0*XYD**2/20.D0
|
||||
1 +2.D0*XYD**3/15.D0)/Y2**2
|
||||
RETURN
|
||||
100 WRITE(6,200)
|
||||
200 FORMAT(1X,'ERROR: ARGUMENTS OF FG-FUNCTION MUST BE POSITIVE')
|
||||
END
|
||||
C
|
||||
FUNCTION FH(X2,Y2)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DATA SMALL/1.D-4/
|
||||
FH= 0.D0
|
||||
IF (X2 .LE. 0.D0) GO TO 100
|
||||
IF (Y2 .LE. 0.D0) GO TO 100
|
||||
XYD= (X2-Y2)/Y2
|
||||
DXYD= DABS(XYD)
|
||||
IF (DXYD .LT. SMALL) GO TO 50
|
||||
FH= DLOG(X2/Y2)/(X2-Y2)
|
||||
RETURN
|
||||
50 FH= (1.D0-XYD/2.D0+XYD**2/3.D0-XYD**3/4.D0+XYD**4/5.D0)/Y2
|
||||
RETURN
|
||||
100 WRITE(6,200)
|
||||
200 FORMAT(1X,'ERROR: ARGUMENTS OF FH-FUNCTION MUST BE POSITIVE')
|
||||
END
|
||||
C
|
||||
FUNCTION BP(X2,Y2)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DATA SMALL/1.D-4/
|
||||
BP= 0.D0
|
||||
IF (X2 .LE. 0.D0) GO TO 100
|
||||
IF (Y2 .LE. 0.D0) GO TO 100
|
||||
XYD= (X2-Y2)/Y2
|
||||
DXYD= DABS(XYD)
|
||||
IF (DXYD .LT. SMALL) GO TO 50
|
||||
BP= 0.5D0*(X2+Y2-2.D0*X2*Y2*DLOG(X2/Y2)/(X2-Y2))/(X2-Y2)**2
|
||||
RETURN
|
||||
50 BP= (1.D0/6.D0-XYD/12.D0+XYD**2/20.D0-XYD**3/30.D0)/Y2
|
||||
RETURN
|
||||
100 WRITE(6,200)
|
||||
200 FORMAT(1X,'ERROR: ARGUMENTS OF BP-FUNCTION MUST BE POSITIVE')
|
||||
END
|
||||
C
|
||||
FUNCTION FP(Z2,X2,Y2)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DATA SMALL/1.D-4/
|
||||
FP= 0.D0
|
||||
IF (X2 .LE. 0.D0) GO TO 100
|
||||
IF (Y2 .LE. 0.D0) GO TO 100
|
||||
XYD= (X2-Y2)/Y2
|
||||
DXYD= DABS(XYD)
|
||||
IF (DXYD .LT. SMALL) GO TO 50
|
||||
FP= (FF_HABER(X2,Z2)-FF_HABER(Y2,Z2))/(X2-Y2)
|
||||
RETURN
|
||||
50 FP= -FG(Y2,Z2)+XYD*FP1(Y2,Z2)+XYD**2*FP2(Y2,Z2)+XYD**3*FP3(Y2,Z2)
|
||||
RETURN
|
||||
100 WRITE(6,200)
|
||||
200 FORMAT(1X,'ERROR: ARGUMENTS OF FP-FUNCTION MUST BE POSITIVE')
|
||||
END
|
||||
C
|
||||
FUNCTION HP(Z2,X2,Y2)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DATA SMALL/1.D-4/
|
||||
HP= 0.D0
|
||||
IF (X2 .LE. 0.D0) GO TO 100
|
||||
IF (Y2 .LE. 0.D0) GO TO 100
|
||||
XYD= (X2-Y2)/Y2
|
||||
DXYD= DABS(XYD)
|
||||
IF (DXYD .LT. SMALL) GO TO 50
|
||||
HP= (FFD(X2,Z2)-FFD(Y2,Z2))/(X2-Y2)
|
||||
RETURN
|
||||
50 HP= FF_HABER(Z2,Y2)+XYD*BP(Y2,Z2)+XYD**2*HP2(Y2,Z2)
|
||||
. +XYD**3*HP3(Y2,Z2)
|
||||
RETURN
|
||||
100 WRITE(6,200)
|
||||
200 FORMAT(1X,'ERROR: ARGUMENTS OF HP-FUNCTION MUST BE POSITIVE')
|
||||
END
|
||||
C
|
||||
FUNCTION FP1(Y2,Z2)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DATA SMALL/1.D-4/
|
||||
YZD= (Y2-Z2)/Z2
|
||||
DYZD= DABS(YZD)
|
||||
IF (DYZD .LT. SMALL) GO TO 50
|
||||
FP1= 0.5D0*(5.D0*Y2+Z2)/(Y2-Z2)**3
|
||||
1 -Y2*(2.D0*Z2+Y2)*DLOG(Y2/Z2)/(Y2-Z2)**4
|
||||
RETURN
|
||||
50 FP1=(-1.D0/12.D0+YZD/15.D0-YZD**2/20.D0+4.D0*YZD**3/105.D0)/Z2**2
|
||||
RETURN
|
||||
END
|
||||
C
|
||||
FUNCTION FP2(Y2,Z2)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DATA SMALL/1.D-4/
|
||||
YZD= (Y2-Z2)/Z2
|
||||
DYZD= DABS(YZD)
|
||||
IF (DYZD .LT. SMALL) GO TO 50
|
||||
FP2= (Z2**2-8.D0*Z2*Y2-17.D0*Y2**2)/(6.D0*(Y2-Z2)**4)
|
||||
1 +Y2**2*(3.D0*Z2+Y2)*DLOG(Y2/Z2)/(Y2-Z2)**5
|
||||
RETURN
|
||||
50 FP2=(1.D0/20.D0-YZD/30.D0+3.D0*YZD**2/140.D0+YZD**3/70.D0)/Z2**2
|
||||
RETURN
|
||||
END
|
||||
|
||||
FUNCTION FP3(Y2,Z2)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DATA SMALL/1.D-4/
|
||||
YZD= (Y2-Z2)/Z2
|
||||
DYZD= DABS(YZD)
|
||||
IF (DYZD .LT. SMALL) GO TO 50
|
||||
POLY= Z2**3-7.D0*Z2**2*Y2+29.D0*Z2*Y2**2+37.D0*Y2**3
|
||||
FP3= POLY/(12.D0*(Y2-Z2)**5)
|
||||
1 -Y2**3*(4.D0*Z2+Y2)*DLOG(Y2/Z2)/(Y2-Z2)**6
|
||||
RETURN
|
||||
50 FP3=(-1.D0/30.D0+2.D0*YZD/105.D0-3.D0*YZD**2/280.D0
|
||||
1 +2.D0*YZD**3/315.D0)/Z2**2
|
||||
RETURN
|
||||
END
|
||||
C
|
||||
FUNCTION HP2(Y2,Z2)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DATA SMALL/1.D-4/
|
||||
YZD= (Y2-Z2)/Z2
|
||||
DYZD= DABS(YZD)
|
||||
IF (DYZD .LT. SMALL) GO TO 50
|
||||
HP2= (Z2**2-5.D0*Z2*Y2-2.D0*Y2**2)/(6.D0*(Y2-Z2)**3)
|
||||
1 +Y2**2*Z2*DLOG(Y2/Z2)/(Y2-Z2)**4
|
||||
RETURN
|
||||
50 HP2=(-1.D0/12.D0+YZD/30.D0-YZD**2/60.D0+YZD**3/105.D0)/Z2
|
||||
RETURN
|
||||
END
|
||||
C
|
||||
FUNCTION HP3(Y2,Z2)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
DATA SMALL/1.D-4/
|
||||
YZD= (Y2-Z2)/Z2
|
||||
DYZD= DABS(YZD)
|
||||
IF (DYZD .LT. SMALL) GO TO 50
|
||||
POLY= Z2**3-5.D0*Z2**2*Y2+13.D0*Z2*Y2**2+3.D0*Y2**3
|
||||
HP3= POLY/(12.D0*(Y2-Z2)**4)
|
||||
1 -Y2**3*Z2*DLOG(Y2/Z2)/(Y2-Z2)**5
|
||||
RETURN
|
||||
50 HP3=(1.D0/20.D0-YZD/60.D0+YZD**2/140.D0-YZD**3/280.D0)/Z2
|
||||
RETURN
|
||||
END
|
||||
|
||||
FUNCTION ALFS(QK)
|
||||
IMPLICIT REAL*8 (A-H,O-Z)
|
||||
COMMON/QMASS/ TMPOLE
|
||||
DATA PI/3.1415926535D0/
|
||||
C
|
||||
C ONE-LOOP STRONG COUPLING FOR QK>BMASS
|
||||
C
|
||||
AST= 0.11D0
|
||||
ALFS= AST
|
||||
IF (QK .GE. TMPOLE) F= 6.D0
|
||||
IF (QK .LT. TMPOLE) F= 5.D0
|
||||
IF (QK .LT. 5.D0) GO TO 10
|
||||
DEN= 1.D0+AST*(11.D0-2.D0*F/3.D0)*DLOG(QK/TMPOLE)/(2.D0*PI)
|
||||
ALFS= AST/DEN
|
||||
RETURN
|
||||
10 WRITE (6,100)
|
||||
100 FORMAT(1X,'ERROR: STRONG COUPLING CONSTANT EVALUATED BELOW M(B)')
|
||||
RETURN
|
||||
END
|
||||
|
||||
FUNCTION TMASSR(Q,TMASS)
|
||||
IMPLICIT REAL*8 (A-H,O-Z)
|
||||
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
|
||||
COMMON/QMASS/ TMPOLE
|
||||
DATA PI/3.1415926535/
|
||||
QP= TMPOLE
|
||||
HB2= 0.5D0*G2*BMASS**2/(WMASS*COSB)**2
|
||||
HT2= 0.5D0*G2*TMASS**2/(WMASS*SINB)**2
|
||||
ALS= ALFS(QP)
|
||||
ALST= ALS-3.D0*HT2/(64.D0*PI)
|
||||
1 +GP2/(48.D0*PI)
|
||||
2 -HB2/(64.D0*PI)
|
||||
TMASSR= TMASS*(1.D0-ALST*DLOG(Q**2/TMASS**2)/PI)
|
||||
RETURN
|
||||
END
|
||||
|
||||
SUBROUTINE HIGGS3(IRC,H,DL)
|
||||
IMPLICIT REAL*8(A-H,O-Z)
|
||||
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
|
||||
COMMON/ANG/ SINA,COSA,SIN2A,COS2A,SINBPA,COSBPA,SINBMA,COSBMA
|
||||
COMMON/HINT3/HLAA,HHAA,HLHLHL,HHHLHL,HHHHHL,HHHHHH,
|
||||
1 HHHPHM,HLHPHM
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
DOUBLE PRECISION LA1,LA2,LA3,LA4,LA5,LA6,LA7
|
||||
COMMON/HSELF_HDEC/LA1,LA2,LA3,LA4,LA5,LA6,LA7
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
DIMENSION H(4),DL(7)
|
||||
DATA PI/3.1415926535D0/
|
||||
C
|
||||
C DL(3)= LAMBDA(3)+LAMBDA(4)
|
||||
C DL(4)= LAMBDA(5)-LAMBDA(4)
|
||||
C
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
LA1 = DL(1)
|
||||
LA2 = DL(2)
|
||||
LA4 = DL(5)-DL(4)
|
||||
LA3 = DL(3)-LA4
|
||||
LA5 = DL(5)
|
||||
LA6 = DL(6)
|
||||
LA7 = DL(7)
|
||||
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
V2= 4.D0*WMASS**2/G2
|
||||
DL4NL= 2.D0*(H(4)**2-H(3)**2)/V2
|
||||
COSW= DSQRT(1.D0-SINW2)
|
||||
G= DSQRT(G2)
|
||||
SINB2= SINB**2
|
||||
COSB2= COSB**2
|
||||
SINA2= SINA**2
|
||||
COSA2= COSA**2
|
||||
SINA3= SINA**3
|
||||
COSA3= COSA**3
|
||||
COS2B= COSB2-SINB2
|
||||
IF (IRC .EQ. 0) GO TO 50
|
||||
FACN= 2.D0*WMASS/G
|
||||
HLAA= FACN*(DL(1)*SINA*COSB*SINB2-DL(2)*COSA*SINB*COSB2
|
||||
1 -(DL(3)+DL(5))*(COSA*SINB**3-SINA*COSB**3)
|
||||
2 +2.D0*DL(5)*SINBMA-DL(6)*SINB*(COSB*SINBPA+SINA*COS2B)
|
||||
3 -DL(7)*COSB*(COSA*COS2B-SINB*SINBPA))
|
||||
HHAA= -FACN*(DL(1)*COSA*COSB*SINB2+DL(2)*SINA*SINB*COSB2
|
||||
1 +(DL(3)+DL(5))*(SINA*SINB**3+COSA*COSB**3)
|
||||
2 -2.D0*DL(5)*COSBMA-DL(6)*SINB*(COSB*COSBPA+COSA*COS2B)
|
||||
3 +DL(7)*COSB*(SINB*COSBPA+SINA*COS2B))
|
||||
HHHLHL= -3.D0*FACN*(DL(1)*COSA*SINA2*COSB+DL(2)*SINA*COSA2*SINB
|
||||
1 +(DL(3)+DL(5))*(SINA3*SINB+COSA3*COSB-2.D0*COSBMA/3.D0)
|
||||
2 -DL(6)*SINA*(COSB*COS2A+COSA*COSBPA)
|
||||
3 +DL(7)*COSA*(SINB*COS2A+SINA*COSBPA))
|
||||
HHHHHL= 3.D0*FACN*(DL(1)*SINA*COSB*COSA2-DL(2)*COSA*SINB*SINA2
|
||||
1 +(DL(3)+DL(5))*(SINA3*COSB-COSA3*SINB+2.D0*SINBMA/3.D0)
|
||||
2 -DL(6)*COSA*(COSB*COS2A-SINA*SINBPA)
|
||||
3 -DL(7)*SINA*(SINB*COS2A+COSA*SINBPA))
|
||||
HHHHHH= -3.D0*FACN*(DL(1)*COSB*COSA3+DL(2)*SINB*SINA3
|
||||
1 +(DL(3)+DL(5))*SINA*COSA*SINBPA
|
||||
2 +DL(6)*COSA2*(3.D0*SINA*COSB+COSA*SINB)
|
||||
3 +DL(7)*SINA2*(3.D0*COSA*SINB+SINA*COSB))
|
||||
HLHLHL= 3.D0*FACN*(DL(1)*COSB*SINA3-DL(2)*SINB*COSA3
|
||||
1 +(DL(3)+DL(5))*SINA*COSA*COSBPA
|
||||
2 -DL(6)*SINA2*(3.D0*COSA*COSB-SINA*SINB)
|
||||
3 +DL(7)*COSA2*(3.D0*SINA*SINB-COSA*COSB))
|
||||
HHHPHM= HHAA-FACN*COSBMA*DL(4)
|
||||
HLHPHM= HLAA-FACN*SINBMA*DL(4)
|
||||
C
|
||||
C THESE COUPLINGS INCLUDE NON-LEADING LOG CONTRIBUTIONS
|
||||
C WHICH ARE TAKEN TO BE THE SAME AS IN THE CORRECTIONS
|
||||
C TO THE CHARGED HIGGS MASS SQUARED.
|
||||
C
|
||||
C HHHPM= HHAA-FACN*COSBMA*DL4NL
|
||||
C HLHPM= HLAA-FACN*SINBMA*DL4NL
|
||||
RETURN
|
||||
50 FAC= -G*WMASS
|
||||
FAN= -0.5D0*G*ZMASS/COSW
|
||||
HHHPHM= FAC*COSBMA-FAN*COS2B*COSBPA
|
||||
HLHPHM= FAC*SINBMA+FAN*COS2B*SINBPA
|
||||
HHHHHH= 3.D0*FAN*COS2A*COSBPA
|
||||
HLHLHL= 3.D0*FAN*COS2A*SINBPA
|
||||
HHHHHL= -FAN*(2.D0*SIN2A*COSBPA+COS2A*SINBPA)
|
||||
HHHLHL= FAN*(2.D0*SIN2A*SINBPA-COS2A*COSBPA)
|
||||
HHAA= -FAN*COS2B*COSBPA
|
||||
HLAA= FAN*COS2B*SINBPA
|
||||
RETURN
|
||||
END
|
||||
BIN
zzz/haber.o
Normal file
BIN
zzz/haber.o
Normal file
Binary file not shown.
18801
zzz/hdecay.f
Normal file
18801
zzz/hdecay.f
Normal file
File diff suppressed because it is too large
Load Diff
125
zzz/hdecay.in
Normal file
125
zzz/hdecay.in
Normal file
@@ -0,0 +1,125 @@
|
||||
SLHAIN = 0
|
||||
SLHAOUT = 1
|
||||
COUPVAR = 0
|
||||
HIGGS = 5
|
||||
OMIT ELW = 0
|
||||
SM4 = 0
|
||||
FERMPHOB = 0
|
||||
2HDM = 0
|
||||
MODEL = 1
|
||||
INPUT_SC = 0
|
||||
TGBET = 20.0D0
|
||||
MABEG = 1400.D0
|
||||
MAEND = 1400.D0
|
||||
NMA = 1
|
||||
********************* hMSSM (MODEL = 10) *********************************
|
||||
MHL = 125.D0
|
||||
**************************************************************************
|
||||
ALS(MZ) = 0.1180D0
|
||||
MSBAR(2) = 0.0935D0
|
||||
MCBAR(3) = 0.986D0
|
||||
MBBAR(MB)= 4.180D0
|
||||
******** scale KAPPA*M_H used in H -> qq for SM **************************
|
||||
KAPPA = 1.0D0
|
||||
******** input values at scale KAPPA*M_H for SM (INPUT_SC = 1) ***********
|
||||
ALS(K*MH)= 0.112633399716595D0
|
||||
MS(K*MH) = 0.05781871905029032D0
|
||||
MC(K*MH) = 0.636152217701909D0
|
||||
MB(K*MH) = 2.78715048261491D0
|
||||
**************************************************************************
|
||||
MT = 172.5D0
|
||||
MTAU = 1.77682D0
|
||||
MMUON = 0.1056583715D0
|
||||
1/ALPHA = 132.3489045D0
|
||||
GF = 1.16436D-5
|
||||
GAMW = 2.085D0
|
||||
GAMZ = 2.4952D0
|
||||
MZ = 91.1876D0
|
||||
MW = 80.379D0
|
||||
VTB = 0.9991D0
|
||||
VTS = 0.0404D0
|
||||
VTD = 0.00867D0
|
||||
VCB = 0.0412D0
|
||||
VCS = 0.97344D0
|
||||
VCD = 0.22520D0
|
||||
VUB = 0.00351D0
|
||||
VUS = 0.22534D0
|
||||
VUD = 0.97427D0
|
||||
********************* 4TH GENERATION *************************************
|
||||
SCENARIO FOR ELW. CORRECTIONS TO H -> GG (EVERYTHING IN GEV):
|
||||
GG_ELW = 1: MTP = 500 MBP = 450 MNUP = 375 MEP = 450
|
||||
GG_ELW = 2: MBP = MNUP = MEP = 600 MTP = MBP+50*(1+LOG(M_H/115)/5)
|
||||
|
||||
GG_ELW = 1
|
||||
MTP = 500.D0
|
||||
MBP = 450.D0
|
||||
MNUP = 375.D0
|
||||
MEP = 450.D0
|
||||
************************** 2 Higgs Doublet Model *************************
|
||||
TYPE: 1 (I), 2 (II), 3 (lepton-specific), 4 (flipped)
|
||||
PARAM: 1 (masses), 2 (lambda_i)
|
||||
|
||||
PARAM = 1
|
||||
TYPE = 2
|
||||
********************
|
||||
TGBET2HDM= 20.0D0
|
||||
M_12^2 = 25600.D0
|
||||
******************** PARAM=1:
|
||||
ALPHA_H = -0.14D0
|
||||
MHL = 125.D0
|
||||
MHH = 210.D0
|
||||
MHA = 130.D0
|
||||
MH+- = 130.D0
|
||||
******************** PARAM=2:
|
||||
LAMBDA1 = 2.6885665050462264D0
|
||||
LAMBDA2 = 0.000156876030254505681D0
|
||||
LAMBDA3 = 0.46295674052962260D0
|
||||
LAMBDA4 = 0.96605498373771792D0
|
||||
LAMBDA5 = -0.88138084173680198D0
|
||||
**************************************************************************
|
||||
GUT M1 = 0
|
||||
SUSYSCALE= 2000.D0
|
||||
MU = 1000.D0
|
||||
M1 = 1000.D0
|
||||
M2 = 1000.D0
|
||||
MGLUINO = 2500.D0
|
||||
MSL1 = 2000.D0
|
||||
MER1 = 2000.D0
|
||||
MQL1 = 1500.D0
|
||||
MUR1 = 1500.D0
|
||||
MDR1 = 1500.D0
|
||||
MSL = 2000.D0
|
||||
MER = 2000.D0
|
||||
MSQ = 1500.D0
|
||||
MUR = 1500.D0
|
||||
MDR = 1500.D0
|
||||
AL = 2850.D0
|
||||
AU = 2850.D0
|
||||
AD = 2850.D0
|
||||
ON-SHELL = 0
|
||||
ON-SH-WZ = 0
|
||||
IPOLE = 0
|
||||
OFF-SUSY = 0
|
||||
INDIDEC = 0
|
||||
NF-GG = 5
|
||||
IGOLD = 0
|
||||
MPLANCK = 2.4D18
|
||||
MGOLD = 1.D-13
|
||||
******************* VARIATION OF HIGGS COUPLINGS *************************
|
||||
ELWK = 0
|
||||
CW = 1.D0
|
||||
CZ = 1.D0
|
||||
Ctau = 1.D0
|
||||
Cmu = 1.D0
|
||||
Ct = 1.D0
|
||||
Cb = 1.D0
|
||||
Cc = 1.D0
|
||||
Cs = 1.D0
|
||||
Cgaga = 0.D0
|
||||
Cgg = 0.D0
|
||||
CZga = 0.D0
|
||||
********************* 4TH GENERATION *************************************
|
||||
Ctp = 0.D0
|
||||
Cbp = 0.D0
|
||||
Cnup = 0.D0
|
||||
Cep = 0.D0
|
||||
BIN
zzz/hdecay.o
Normal file
BIN
zzz/hdecay.o
Normal file
Binary file not shown.
1380
zzz/hgaga.f
Normal file
1380
zzz/hgaga.f
Normal file
File diff suppressed because it is too large
Load Diff
BIN
zzz/hgaga.o
Normal file
BIN
zzz/hgaga.o
Normal file
Binary file not shown.
2346
zzz/hsqsq.f
Normal file
2346
zzz/hsqsq.f
Normal file
File diff suppressed because it is too large
Load Diff
BIN
zzz/hsqsq.o
Normal file
BIN
zzz/hsqsq.o
Normal file
Binary file not shown.
35
zzz/makefile
Normal file
35
zzz/makefile
Normal file
@@ -0,0 +1,35 @@
|
||||
OBJS = hdecay.o haber.o hsqsq.o susylha.o hgaga.o dmb.o \
|
||||
elw.o hgg.o h2hh.o
|
||||
|
||||
#OBJS = hdecay.o haber.o hsqsq.o
|
||||
|
||||
FFLAGS =
|
||||
|
||||
#FFLAGS = -std=gnu
|
||||
|
||||
#FFLAGS = -ffpe-trap=invalid,overflow,zero
|
||||
|
||||
FC=gfortran
|
||||
|
||||
#FFLAGS = -fno-emulate-complex -fno-automatic -ffixed-line-length-none -ffast-math -march=pentiumpro -Wall -fno-silent
|
||||
|
||||
#FC=g77
|
||||
|
||||
#FFLAGS = -fno-emulate-complex -fno-automatic -ffixed-line-length-none -ffast-math -march=pentiumpro -malign-double -Wall -fno-silent
|
||||
|
||||
#FFLAGS = -Wall -fno-silent
|
||||
|
||||
#FC=f77
|
||||
|
||||
#FFLAGS= -pc 64 -g77libs
|
||||
|
||||
#FC=pgf77
|
||||
|
||||
.f.o:
|
||||
$(FC) -c $(FFLAGS) $*.f
|
||||
|
||||
hdecay: $(OBJS)
|
||||
$(FC) $(FFLAGS) $(OBJS) -o run
|
||||
|
||||
clean:
|
||||
rm -f $(OBJS)
|
||||
205
zzz/slha.in
Normal file
205
zzz/slha.in
Normal file
@@ -0,0 +1,205 @@
|
||||
#
|
||||
BLOCK DCINFO # Decay Program information
|
||||
1 HDECAY # decay calculator
|
||||
2 4.41 # version number
|
||||
#
|
||||
BLOCK MODSEL # Model selection
|
||||
1 0 # General MSSM
|
||||
#
|
||||
BLOCK SMINPUTS # Standard Model inputs
|
||||
2 1.16637000E-05 # G_F [GeV^-2]
|
||||
3 1.19000000E-01 # alpha_S(M_Z)^MSbar
|
||||
4 9.11534900E+01 # M_Z pole mass
|
||||
5 4.16159779E+00 # mb(mb)^MSbar
|
||||
6 1.72500000E+02 # mt pole mass
|
||||
7 1.77684000E+00 # mtau pole mass
|
||||
#
|
||||
BLOCK MASS # Mass Spectrum
|
||||
# PDG code mass particle
|
||||
24 8.03695100E+01 # W+
|
||||
25 1.10151996E+02 # h
|
||||
35 1.19951749E+02 # H
|
||||
36 1.15000000E+02 # A
|
||||
37 1.38017169E+02 # H+
|
||||
5 4.49000000E+00 # b-quark pole mass calculated from mb(mb)_Msbar
|
||||
1000001 1.03810708E+03 # ~d_L
|
||||
2000001 1.03670286E+03 # ~d_R
|
||||
1000002 1.03499846E+03 # ~u_L
|
||||
2000002 1.03581228E+03 # ~u_R
|
||||
1000003 1.03810708E+03 # ~s_L
|
||||
2000003 1.03670286E+03 # ~s_R
|
||||
1000004 1.03499846E+03 # ~c_L
|
||||
2000004 1.03581228E+03 # ~c_R
|
||||
1000005 1.01091038E+03 # ~b_1
|
||||
2000005 1.06308067E+03 # ~b_2
|
||||
1000006 9.76923458E+02 # ~t_1
|
||||
2000006 1.11056069E+03 # ~t_2
|
||||
1000011 1.00114917E+03 # ~e_L
|
||||
2000011 1.00092237E+03 # ~e_R
|
||||
1000012 9.97925219E+02 # ~nu_eL
|
||||
1000013 1.00114917E+03 # ~mu_L
|
||||
2000013 1.00092237E+03 # ~mu_R
|
||||
1000014 9.97925219E+02 # ~nu_muL
|
||||
1000015 9.74959961E+02 # ~tau_1
|
||||
2000015 1.02645246E+03 # ~tau_2
|
||||
1000016 9.97925219E+02 # ~nu_tauL
|
||||
1000021 1.00000000E+03 # ~g
|
||||
1000022 4.75964920E+02 # ~chi_10
|
||||
1000023 9.43088027E+02 # ~chi_20
|
||||
1000025 -1.00209173E+03 # ~chi_30
|
||||
1000035 1.06031253E+03 # ~chi_40
|
||||
1000024 9.42814590E+02 # ~chi_1+
|
||||
1000037 1.06019770E+03 # ~chi_2+
|
||||
#
|
||||
BLOCK NMIX # Neutralino Mixing Matrix
|
||||
1 1 9.97966204E-01 # N_11
|
||||
1 2 -4.66726555E-03 # N_12
|
||||
1 3 5.69483013E-02 # N_13
|
||||
1 4 -2.85506993E-02 # N_14
|
||||
2 1 4.62842694E-02 # N_21
|
||||
2 2 1.52950098E+01 # N_22
|
||||
2 3 -1.10580686E+01 # N_23
|
||||
2 4 1.04682517E+01 # N_24
|
||||
3 1 1.98730411E-02 # N_31
|
||||
3 2 -1.38080423E+00 # N_32
|
||||
3 3 -3.55210408E+01 # N_33
|
||||
3 4 -3.56004713E+01 # N_34
|
||||
4 1 3.90676900E-02 # N_41
|
||||
4 2 -1.80646883E+01 # N_42
|
||||
4 3 -1.24480914E+01 # N_43
|
||||
4 4 1.31490664E+01 # N_44
|
||||
#
|
||||
BLOCK UMIX # Chargino Mixing Matrix U
|
||||
1 1 -6.87450932E-01 # U_11
|
||||
1 2 7.26230829E-01 # U_12
|
||||
2 1 7.26230829E-01 # U_21
|
||||
2 2 6.87450932E-01 # U_22
|
||||
#
|
||||
BLOCK VMIX # Chargino Mixing Matrix V
|
||||
1 1 -7.26230829E-01 # V_11
|
||||
1 2 6.87450932E-01 # V_12
|
||||
2 1 6.87450932E-01 # V_21
|
||||
2 2 7.26230829E-01 # V_22
|
||||
#
|
||||
BLOCK STOPMIX # Stop Mixing Matrix
|
||||
1 1 7.03221471E-01 # cos(theta_t)
|
||||
1 2 -7.10970860E-01 # sin(theta_t)
|
||||
2 1 7.10970860E-01 # -sin(theta_t)
|
||||
2 2 7.03221471E-01 # cos(theta_t)
|
||||
#
|
||||
BLOCK SBOTMIX # Sbottom Mixing Matrix
|
||||
1 1 6.17260639E-01 # cos(theta_b)
|
||||
1 2 7.86758733E-01 # sin(theta_b)
|
||||
2 1 -7.86758733E-01 # -sin(theta_b)
|
||||
2 2 6.17260639E-01 # cos(theta_b)
|
||||
#
|
||||
BLOCK STAUMIX # Stau Mixing Matrix
|
||||
1 1 7.05547320E-01 # cos(theta_tau)
|
||||
1 2 7.08662811E-01 # sin(theta_tau)
|
||||
2 1 -7.08662811E-01 # -sin(theta_tau)
|
||||
2 2 7.05547320E-01 # cos(theta_tau)
|
||||
#
|
||||
BLOCK ALPHA # Higgs mixing
|
||||
-8.46891780E-01 # Mixing angle in the neutral Higgs boson sector
|
||||
#
|
||||
BLOCK HMIX Q= 1.00000000E+03 # DRbar Higgs Parameters
|
||||
1 9.97518350E+02 # mu(Q)
|
||||
2 3.00000000E+01 # tanbeta(Q)
|
||||
#
|
||||
BLOCK VCKMIN # CKM mixing
|
||||
1 2.25300000E-01 # lambda
|
||||
2 8.07721184E-01 # A
|
||||
3 1.35553045E-01 # rhobar
|
||||
4 3.50178700E-01 # etabar
|
||||
#
|
||||
BLOCK AU Q= 1.00000000E+03 # The trilinear couplings
|
||||
1 1 1.00000000E+03 # A_u(Q) DRbar
|
||||
2 2 1.00000000E+03 # A_c(Q) DRbar
|
||||
3 3 1.00000000E+03 # A_t(Q) DRbar
|
||||
#
|
||||
BLOCK AD Q= 1.00000000E+03 # The trilinear couplings
|
||||
1 1 1.00000000E+03 # A_d(Q) DRbar
|
||||
2 2 1.00000000E+03 # A_s(Q) DRbar
|
||||
3 3 1.00000000E+03 # A_b(Q) DRbar
|
||||
#
|
||||
BLOCK AE Q= 1.00000000E+03 # The trilinear couplings
|
||||
1 1 1.00000000E+03 # A_e(Q) DRbar
|
||||
2 2 1.00000000E+03 # A_mu(Q) DRbar
|
||||
3 3 1.00000000E+03 # A_tau(Q) DRbar
|
||||
#
|
||||
BLOCK MSOFT Q= 1.00000000E+03 # The soft SUSY breaking masses at the scale Q
|
||||
1 4.77273747E+02 # M_1(Q)
|
||||
2 9.94631334E+02 # M_2(Q)
|
||||
31 1.00000000E+03 # AMEL1
|
||||
33 1.00000000E+03 # AMEL
|
||||
34 1.00000000E+03 # AMER1
|
||||
36 1.00000000E+03 # AMER
|
||||
41 1.00000000E+03 # AMQL1
|
||||
43 1.00000000E+03 # AMSQ
|
||||
44 1.00000000E+03 # AMUR1
|
||||
46 1.00000000E+03 # AMUR
|
||||
47 1.00000000E+03 # AMDR1
|
||||
49 1.00000000E+03 # AMDR
|
||||
#
|
||||
# PDG Width
|
||||
DECAY 25 9.48341651E-01 # h decays
|
||||
# BR NDA ID1 ID2
|
||||
8.76108956E-01 2 5 -5 # BR(h -> b bb )
|
||||
1.21536597E-01 2 -15 15 # BR(h -> tau+ tau- )
|
||||
4.30421740E-04 2 -13 13 # BR(h -> mu+ mu- )
|
||||
2.93874954E-04 2 3 -3 # BR(h -> s sb )
|
||||
4.93821194E-05 2 4 -4 # BR(h -> c cb )
|
||||
1.50205007E-03 2 21 21 # BR(h -> g g )
|
||||
4.75927719E-06 2 22 22 # BR(h -> gam gam )
|
||||
6.26715520E-07 2 22 23 # BR(h -> Z gam )
|
||||
6.71255816E-05 2 24 -24 # BR(h -> W+ W- )
|
||||
6.20668162E-06 2 23 23 # BR(h -> Z Z )
|
||||
#
|
||||
# PDG Width
|
||||
DECAY 35 7.74246095E-01 # H decays
|
||||
# BR NDA ID1 ID2
|
||||
8.69351424E-01 2 5 -5 # BR(H -> b bb )
|
||||
1.26712007E-01 2 -15 15 # BR(H -> tau+ tau- )
|
||||
4.48640947E-04 2 -13 13 # BR(H -> mu+ mu- )
|
||||
2.89953079E-04 2 3 -3 # BR(H -> s sb )
|
||||
8.28568366E-05 2 4 -4 # BR(H -> c cb )
|
||||
2.74646096E-03 2 21 21 # BR(H -> g g )
|
||||
3.46084748E-06 2 22 22 # BR(H -> gam gam )
|
||||
2.40010881E-06 2 23 22 # BR(H -> Z gam )
|
||||
3.25706553E-04 2 24 -24 # BR(H -> W+ W- )
|
||||
3.70715592E-05 2 23 23 # BR(H -> Z Z )
|
||||
1.64655456E-08 2 25 25 # BR(H -> h h )
|
||||
3.68139015E-10 2 36 36 # BR(H -> A A )
|
||||
1.83954996E-09 2 23 36 # BR(H -> Z A )
|
||||
#
|
||||
# PDG Width
|
||||
DECAY 36 1.72365381E+00 # A decays
|
||||
# BR NDA ID1 ID2
|
||||
8.72868395E-01 2 5 -5 # BR(A -> b bb )
|
||||
1.24362939E-01 2 -15 15 # BR(A -> tau+ tau- )
|
||||
4.39955591E-04 2 -13 13 # BR(A -> mu+ mu- )
|
||||
2.92757844E-04 2 3 -3 # BR(A -> s sb )
|
||||
7.18029685E-08 2 4 -4 # BR(A -> c cb )
|
||||
2.03547069E-03 2 21 21 # BR(A -> g g )
|
||||
4.05508136E-07 2 22 22 # BR(A -> gam gam )
|
||||
4.35653932E-09 2 23 22 # BR(A -> Z gam )
|
||||
8.30830844E-10 2 23 25 # BR(A -> Z h )
|
||||
#
|
||||
# PDG Width
|
||||
DECAY 37 2.60841310E-01 # H+ decays
|
||||
# BR NDA ID1 ID2
|
||||
7.68732277E-03 2 4 -5 # BR(H+ -> c bb )
|
||||
9.86423482E-01 2 -15 16 # BR(H+ -> tau+ nu_tau )
|
||||
3.48913690E-03 2 -13 14 # BR(H+ -> mu+ nu_mu )
|
||||
5.50052917E-05 2 2 -5 # BR(H+ -> u bb )
|
||||
1.10244759E-04 2 2 -3 # BR(H+ -> u sb )
|
||||
2.17210561E-03 2 4 -3 # BR(H+ -> c sb )
|
||||
1.67366428E-06 2 6 -5 # BR(H+ -> t bb )
|
||||
3.47733878E-05 2 24 25 # BR(H+ -> W+ h )
|
||||
2.62558523E-05 2 24 36 # BR(H+ -> W+ A )
|
||||
#
|
||||
# PDG Width
|
||||
DECAY 6 1.37656261E+00 # top decays
|
||||
# BR NDA ID1 ID2
|
||||
9.80297410E-01 2 5 24 # BR(t -> b W+ )
|
||||
1.97025899E-02 2 5 37 # BR(t -> b H+ )
|
||||
207
zzz/slha.out
Normal file
207
zzz/slha.out
Normal file
@@ -0,0 +1,207 @@
|
||||
#
|
||||
BLOCK DCINFO # Decay Program information
|
||||
1 HDECAY # decay calculator
|
||||
2 6.61 # version number
|
||||
#
|
||||
BLOCK MODSEL # Model selection
|
||||
1 0 # General MSSM
|
||||
#
|
||||
BLOCK SMINPUTS # Standard Model inputs
|
||||
2 1.16436000E-05 # G_F [GeV^-2]
|
||||
3 1.18000000E-01 # alpha_S(M_Z)^MSbar
|
||||
4 9.11876000E+01 # M_Z pole mass
|
||||
5 4.18000000E+00 # mb(mb)^MSbar
|
||||
6 1.72500000E+02 # mt pole mass
|
||||
7 1.77682000E+00 # mtau pole mass
|
||||
#
|
||||
BLOCK MASS # Mass Spectrum
|
||||
# PDG code mass particle
|
||||
24 8.03790000E+01 # W+
|
||||
25 1.22091417E+02 # h
|
||||
35 1.39999281E+03 # H
|
||||
36 1.40000000E+03 # A
|
||||
37 1.40206311E+03 # H+
|
||||
5 4.83187528E+00 # b-quark pole mass calculated from mb(mb)_Msbar
|
||||
1000001 1.58199636E+03 # ~d_L
|
||||
2000001 1.58104214E+03 # ~d_R
|
||||
1000002 1.57988521E+03 # ~u_L
|
||||
2000002 1.58043611E+03 # ~u_R
|
||||
1000003 1.58199636E+03 # ~s_L
|
||||
2000003 1.58104214E+03 # ~s_R
|
||||
1000004 1.57988521E+03 # ~c_L
|
||||
2000004 1.58043611E+03 # ~c_R
|
||||
1000005 1.56976807E+03 # ~b_1
|
||||
2000005 1.59318328E+03 # ~b_2
|
||||
1000006 1.45653519E+03 # ~t_1
|
||||
2000006 1.70597225E+03 # ~t_2
|
||||
1000011 2.00057284E+03 # ~e_L
|
||||
2000011 2.00046123E+03 # ~e_R
|
||||
1000012 1.99896552E+03 # ~nu_eL
|
||||
1000013 2.00057284E+03 # ~mu_L
|
||||
2000013 2.00046123E+03 # ~mu_R
|
||||
1000014 1.99896552E+03 # ~nu_muL
|
||||
1000015 1.99288693E+03 # ~tau_1
|
||||
2000015 2.00811973E+03 # ~tau_2
|
||||
1000016 1.99896552E+03 # ~nu_tauL
|
||||
1000021 2.50000000E+03 # ~g
|
||||
1000022 9.33342182E+02 # ~chi_10
|
||||
1000023 1.00000000E+03 # ~chi_20
|
||||
1000025 -1.00187182E+03 # ~chi_30
|
||||
1000035 1.06852964E+03 # ~chi_40
|
||||
1000024 9.41849119E+02 # ~chi_1+
|
||||
1000037 1.06105693E+03 # ~chi_2+
|
||||
#
|
||||
BLOCK NMIX # Neutralino Mixing Matrix
|
||||
1 1 3.31445803E-01 # N_11
|
||||
1 2 -1.86655806E+00 # N_12
|
||||
1 3 1.56630756E+00 # N_13
|
||||
1 4 -1.47154361E+00 # N_14
|
||||
2 1 4.72238309E-01 # N_21
|
||||
2 2 -1.86655806E+00 # N_22
|
||||
2 3 -9.18351611E-03 # N_23
|
||||
2 4 -4.59175777E-04 # N_24
|
||||
3 1 1.44418764E-02 # N_31
|
||||
3 2 -1.86655806E+00 # N_32
|
||||
3 3 -4.88887475E+01 # N_33
|
||||
3 4 -4.89899011E+01 # N_34
|
||||
4 1 3.36077874E-01 # N_41
|
||||
4 2 -1.86655806E+00 # N_42
|
||||
4 3 -1.43315228E+00 # N_43
|
||||
4 4 1.52172299E+00 # N_44
|
||||
#
|
||||
BLOCK UMIX # Chargino Mixing Matrix U
|
||||
1 1 -6.87804806E-01 # U_11
|
||||
1 2 7.25895687E-01 # U_12
|
||||
2 1 7.25895687E-01 # U_21
|
||||
2 2 6.87804806E-01 # U_22
|
||||
#
|
||||
BLOCK VMIX # Chargino Mixing Matrix V
|
||||
1 1 -7.25895687E-01 # V_11
|
||||
1 2 6.87804806E-01 # V_12
|
||||
2 1 6.87804806E-01 # V_21
|
||||
2 2 7.25895687E-01 # V_22
|
||||
#
|
||||
BLOCK STOPMIX # Stop Mixing Matrix
|
||||
1 1 8.85268849E-01 # cos(theta_t)
|
||||
1 2 -4.65079632E-01 # sin(theta_t)
|
||||
2 1 4.65079632E-01 # -sin(theta_t)
|
||||
2 2 8.85268849E-01 # cos(theta_t)
|
||||
#
|
||||
BLOCK SBOTMIX # Sbottom Mixing Matrix
|
||||
1 1 9.99331773E-01 # cos(theta_b)
|
||||
1 2 3.65514406E-02 # sin(theta_b)
|
||||
2 1 -3.65514406E-02 # -sin(theta_b)
|
||||
2 2 9.99331773E-01 # cos(theta_b)
|
||||
#
|
||||
BLOCK STAUMIX # Stau Mixing Matrix
|
||||
1 1 7.04511499E-01 # cos(theta_tau)
|
||||
1 2 7.09692573E-01 # sin(theta_tau)
|
||||
2 1 -7.09692573E-01 # -sin(theta_tau)
|
||||
2 2 7.04511499E-01 # cos(theta_tau)
|
||||
#
|
||||
BLOCK ALPHA # Higgs mixing
|
||||
-5.06526633E-02 # Mixing angle in the neutral Higgs boson sector
|
||||
#
|
||||
BLOCK HMIX Q= 2.00000000E+03 # DRbar Higgs Parameters
|
||||
1 9.97520972E+02 # mu(Q)
|
||||
2 2.00000000E+01 # tanbeta(Q)
|
||||
#
|
||||
BLOCK VCKMIN # CKM mixing
|
||||
1 2.25340000E-01 # lambda
|
||||
2 8.11373158E-01 # A
|
||||
3 1.36480850E-01 # rhobar
|
||||
4 3.52575528E-01 # etabar
|
||||
#
|
||||
BLOCK AU Q= 2.00000000E+03 # The trilinear couplings
|
||||
1 1 2.85000000E+03 # A_u(Q) DRbar
|
||||
2 2 2.85000000E+03 # A_c(Q) DRbar
|
||||
3 3 2.85000000E+03 # A_t(Q) DRbar
|
||||
#
|
||||
BLOCK AD Q= 2.00000000E+03 # The trilinear couplings
|
||||
1 1 2.85000000E+03 # A_d(Q) DRbar
|
||||
2 2 2.85000000E+03 # A_s(Q) DRbar
|
||||
3 3 2.85000000E+03 # A_b(Q) DRbar
|
||||
#
|
||||
BLOCK AE Q= 2.00000000E+03 # The trilinear couplings
|
||||
1 1 2.85000000E+03 # A_e(Q) DRbar
|
||||
2 2 2.85000000E+03 # A_mu(Q) DRbar
|
||||
3 3 2.85000000E+03 # A_tau(Q) DRbar
|
||||
#
|
||||
BLOCK MSOFT Q= 2.00000000E+03 # The soft SUSY breaking masses at the scale Q
|
||||
1 1.00000000E+03 # M_1(Q)
|
||||
2 9.94639277E+02 # M_2(Q)
|
||||
31 2.00000000E+03 # AMEL1
|
||||
33 2.00000000E+03 # AMEL
|
||||
34 2.00000000E+03 # AMER1
|
||||
36 2.00000000E+03 # AMER
|
||||
41 1.50000000E+03 # AMQL1
|
||||
43 1.50000000E+03 # AMSQ
|
||||
44 1.50000000E+03 # AMUR1
|
||||
46 1.50000000E+03 # AMUR
|
||||
47 1.50000000E+03 # AMDR1
|
||||
49 1.50000000E+03 # AMDR
|
||||
#
|
||||
# PDG Width
|
||||
DECAY 25 3.27677855E-03 # h decays
|
||||
# BR NDA ID1 ID2
|
||||
5.84439891E-01 2 5 -5 # BR(h -> b bb )
|
||||
7.91536893E-02 2 -15 15 # BR(h -> tau+ tau- )
|
||||
2.80247850E-04 2 -13 13 # BR(h -> mu+ mu- )
|
||||
2.61623593E-04 2 3 -3 # BR(h -> s sb )
|
||||
3.47700269E-02 2 4 -4 # BR(h -> c cb )
|
||||
8.92189090E-02 2 21 21 # BR(h -> g g )
|
||||
2.79721166E-03 2 22 22 # BR(h -> gam gam )
|
||||
1.50120393E-03 2 22 23 # BR(h -> Z gam )
|
||||
1.85594271E-01 2 24 -24 # BR(h -> W+ W- )
|
||||
2.19829253E-02 2 23 23 # BR(h -> Z Z )
|
||||
#
|
||||
# PDG Width
|
||||
DECAY 35 6.02245566E+00 # H decays
|
||||
# BR NDA ID1 ID2
|
||||
7.76031197E-01 2 5 -5 # BR(H -> b bb )
|
||||
1.97479964E-01 2 -15 15 # BR(H -> tau+ tau- )
|
||||
6.98309748E-04 2 -13 13 # BR(H -> mu+ mu- )
|
||||
3.19696226E-04 2 3 -3 # BR(H -> s sb )
|
||||
3.66153289E-07 2 4 -4 # BR(H -> c cb )
|
||||
2.50195866E-02 2 6 -6 # BR(H -> t tb )
|
||||
4.80070857E-05 2 21 21 # BR(H -> g g )
|
||||
8.96816036E-08 2 22 22 # BR(H -> gam gam )
|
||||
3.84151982E-08 2 23 22 # BR(H -> Z gam )
|
||||
6.93198861E-05 2 24 -24 # BR(H -> W+ W- )
|
||||
3.44233620E-05 2 23 23 # BR(H -> Z Z )
|
||||
2.99002702E-04 2 25 25 # BR(H -> h h )
|
||||
#
|
||||
# PDG Width
|
||||
DECAY 36 6.02484744E+00 # A decays
|
||||
# BR NDA ID1 ID2
|
||||
7.75857898E-01 2 5 -5 # BR(A -> b bb )
|
||||
1.97417474E-01 2 -15 15 # BR(A -> tau+ tau- )
|
||||
6.98084296E-04 2 -13 13 # BR(A -> mu+ mu- )
|
||||
3.19641102E-04 2 3 -3 # BR(A -> s sb )
|
||||
3.58866758E-07 2 4 -4 # BR(A -> c cb )
|
||||
2.54209822E-02 2 6 -6 # BR(A -> t tb )
|
||||
2.15904440E-04 2 21 21 # BR(A -> g g )
|
||||
1.38798804E-07 2 22 22 # BR(A -> gam gam )
|
||||
1.42204869E-07 2 23 22 # BR(A -> Z gam )
|
||||
6.93760810E-05 2 23 25 # BR(A -> Z h )
|
||||
#
|
||||
# PDG Width
|
||||
DECAY 37 6.23841285E+00 # H+ decays
|
||||
# BR NDA ID1 ID2
|
||||
1.35729786E-03 2 4 -5 # BR(H+ -> c bb )
|
||||
1.90940064E-01 2 -15 16 # BR(H+ -> tau+ nu_tau )
|
||||
6.75179639E-04 2 -13 14 # BR(H+ -> mu+ nu_mu )
|
||||
9.85133070E-06 2 2 -5 # BR(H+ -> u bb )
|
||||
1.57229933E-05 2 2 -3 # BR(H+ -> u sb )
|
||||
3.73414326E-08 2 4 -1 # BR(H+ -> c db )
|
||||
2.93730208E-04 2 4 -3 # BR(H+ -> c sb )
|
||||
8.06598987E-01 2 6 -5 # BR(H+ -> t bb )
|
||||
3.98182643E-05 2 6 -3 # BR(H+ -> t sb )
|
||||
1.81100458E-06 2 6 -1 # BR(H+ -> t db )
|
||||
6.75008298E-05 2 24 25 # BR(H+ -> W+ h )
|
||||
7.84494259E-12 2 24 36 # BR(H+ -> W+ A )
|
||||
#
|
||||
# PDG Width
|
||||
DECAY 6 1.31459883E+00 # top decays
|
||||
# BR NDA ID1 ID2
|
||||
1.00000000E+00 2 5 24 # BR(t -> b W+ )
|
||||
2055
zzz/susylha.f
Normal file
2055
zzz/susylha.f
Normal file
File diff suppressed because it is too large
Load Diff
BIN
zzz/susylha.o
Normal file
BIN
zzz/susylha.o
Normal file
Binary file not shown.
Reference in New Issue
Block a user