00001
00002 integer iborn,iqed,iew,iqcd,gfscheme,ifgg,its,igzm2,ilin,ichep
00003 real*8 ma,mv,mh,mz,mw,men,mel,mup,mdn,mmn,mmo,mch,mst,mtn,mta,
00004 & mtp,mbt
00005 real*8 ram2,rvm2,rhm2,rzm2,rwm2,renm2,relm2,rupm2,rdnm2,rmnm2,
00006 & rmom2,rchm2,rstm2,rtnm2,rtam2,rtpm2,rbtm2
00007 real*8 ctw,stw,ctw2,stw2,ctw4,stw4,ctw6,stw6,stw2i
00008 real*8 rwz,rhz,rhw,renh,relh,ruph,rdnh,rmnh,rmoh,rchh,rsth,
00009 & rtnh,rtah,rtph,rbth,renz,relz,rupz,rdnz,rmnz,rmoz,rchz,rstz,rtnz,
00010 & rtaz,rtpz,rbtz,renw,relw,rupw,rdnw,rmnw,rmow,rchw,rstw,rtnw,rtaw,
00011 & rtpw,rbtw
00012 real*8 qen,qel,qup,qdn,qmn,qmo,qch,qst,qtn,qta,qtp,qbt,aen,
00013 & ael,aup,adn,amn,amo,ach,ast,atn,ata,atp,abt,ven,vel,vup,vdn,vmn,
00014 & vmo,vch,vst,vtn,vta,vtp,vbt,vpaen,vmaen,vpael,vmael,vpaup,vmaup,
00015 & vpadn,vmadn,vpamn,vmamn,vpamo,vmamo,vpach,vmach,vpast,vmast,
00016 & vpatn,vmatn,vpata,vmata,vpatp,vmatp,vpabt,vmabt,dfen,dfel,dfup,
00017 & dfdn,dfmn,dfmo,dfch,dfst,dftn,dfta,dftp,dfbt
00018 real*8 thmu,thmu2,tlmu,tlmu2,omega
00019 real*8 s,t,u,qs,ts,us,mf,mf1,spr
00020 real*8 nc,fc,cfl,cfq,cfscheme
00021 real*8 betaf,cosf,sinf
00022 real*8 alpha,alphai,gf,g,e,alphas,gs,cf,conhc,pi,sr2
00023 real*8 wz,ww,wh,wtp,gz,gw,gh,gtp
00024 real*8 rhm4,rzm4,rwm4
00025 real*8 qf(12),i3f(12),rmf1(12)
00026 real*8 born,width,sigma,soft,hard,virt,softvirt,totalvirt,volum
00027 real*8 hardisr,hardifi,hardfsr,hardifw
00028 complex*16 chardisr,chardifi,chardfsr,chardifw
00029 complex*16 cm2,vm2,hm2,zm2,wm2,enm2,elm2,upm2,dnm2,mnm2,mom2,
00030 & chm2,stm2,tnm2,tam2,tpm2,btm2
00031 complex*16 ffarray(3,100)
00032 complex*16 mz2,mz2c,mw2,mw2c,mh2,mh2c,mtp2,mtp2c
00033 complex*16 cmz2,cmw2,cmh2,ctpm2,i_
00034
00035 real*8 za1bos,zmzzzbos,zmwzwbos,zmhzhbos,deltarhobos
00036 real*8 za1fer,zz1fer,zh1fer,zw1fer,zmsqrfer,
00037 & zmzzzfer,zmwzwfer,zmhzhfer,deltarhofer,tadfer
00038 real*8 caldzfer,caldwfer
00039 complex*16 pizgfer,piggfer
00040 complex*16 pigglep,za1lep,piggren
00041
00042 real*8 ddilog
00043 complex*16 jaa,jaz,jav,javsub,javsubt0,javsubu0,javsubtn,javsubun
00044 complex*16 d040,d040wz,tdd0
00045 complex*16 b0p,b0f,b0d1,b0d2,b0dw,bff,c0_sp,c01,c0ir,c0irf
00046 complex*16 xspenz,jinteg
00047
00048 common/masses/ma,mv,mh,mz,mw,men,mel,mup,mdn,mmn,mmo,mch,mst,mtn,
00049 & mta,mtp,mbt
00050 common/r2masses/ram2,rvm2,rhm2,rzm2,rwm2,renm2,relm2,rupm2,rdnm2,
00051 & rmnm2,rmom2,rchm2,rstm2,rtnm2,rtam2,rtpm2,rbtm2
00052 common/c2masses/cm2,vm2,hm2,zm2,wm2,enm2,elm2,upm2,dnm2,mnm2,mom2,
00053 & chm2,stm2,tnm2,tam2,tpm2,btm2
00054 common/cstw/ctw,stw,ctw2,stw2,ctw4,stw4,ctw6,stw6
00055 common/rmhwz/rwz,rhz,rhw,renh,relh,ruph,rdnh,rmnh,rmoh,rchh,rsth,
00056 & rtnh,rtah,rtph,rbth,renz,relz,rupz,rdnz,rmnz,rmoz,rchz,rstz,rtnz,
00057 & rtaz,rtpz,rbtz,renw,relw,rupw,rdnw,rmnw,rmow,rchw,rstw,rtnw,rtaw,
00058 & rtpw,rbtw
00059 common/qavpm/qen,qel,qup,qdn,qmn,qmo,qch,qst,qtn,qta,qtp,qbt,aen,
00060 & ael,aup,adn,amn,amo,ach,ast,atn,ata,atp,abt,ven,vel,vup,vdn,vmn,
00061 & vmo,vch,vst,vtn,vta,vtp,vbt,vpaen,vmaen,vpael,vmael,vpaup,vmaup,
00062 & vpadn,vmadn,vpamn,vmamn,vpamo,vmamo,vpach,vmach,vpast,vmast,
00063 & vpatn,vmatn,vpata,vmata,vpatp,vmatp,vpabt,vmabt,dfen,dfel,dfup,
00064 & dfdn,dfmn,dfmo,dfch,dfst,dftn,dfta,dftp,dfbt
00065 common/flags/iborn,iqed,iew,iqcd,gfscheme,ilin,ifgg,its
00066 common/comphep/ichep
00067 common/ff/ffarray
00068 common/qfi3f/qf,i3f,rmf1
00069 common/nc/nc,fc,cfl,cfq,cfscheme
00070 common/kinematics/betaf,mf,mf1
00071 common/width/wz,ww,wh,wtp,gz,gw,gh,gtp
00072 common/widthm/mz2,mw2,mh2,mtp2,mz2c,mw2c,mh2c,mtp2c
00073 common/consts/alpha,alphai,gf,g,e,alphas,gs,cf,conhc,pi,sr2,i_
00074 common/scales/thmu2,tlmu2,omega
00075
