c==================================================================== c c Define common block containing all coupling constants and masses c which are used in the HELAS routines. c c These include masses, widths and real/complex couplings. c c This file can be built automatically from particles.dat and c interactions.dat c c==================================================================== c c QCD c double complex gg(2) double precision g common /COUPL_QCD/ g,gg c c kinematical masses c double precision hmass, wmass, zmass, amass, & tmass, bmass, lmass, cmass common /COUPL_MASS/ hmass, wmass, zmass, amass, & tmass, bmass, lmass, cmass c c widths c double precision hwidth, wwidth, zwidth, & twidth, lwidth, awidth common /COUPL_WIDTH/ hwidth, wwidth, zwidth, & twidth, lwidth, awidth c c couplings in the feynman rules c double complex gal(2), gad(2), gau(2), gwf(2), & gzn(2), gzl(2), gzd(2), gzu(2) double precision gw, gwwa, gwwz common /COUPL_GAUGE/ gal , gad , gau , gwf , & gzn , gzl , gzd , gzu , & gw, gwwa, gwwz c double complex gwfc(2), gwfs(2), gwfm(2) common /coupl_ckm/ gwfc, gwfs , gwfm c double complex gwwh, gzzh, gwwhh, gzzhh, ghhh, ghhhh common /COUPL_SCAL/ gwwh, gzzh, gwwhh, gzzhh, ghhh, ghhhh c double complex ghtop(2), ghbot(2), ghtau(2), ghcha(2), & gh3top(2),gh3bot(2),gh3tau(2),gh3cha(2) common /COUPL_YUK/ ghtop , ghbot , ghtau , ghcha, & gh3top , gh3bot , gh3tau , gh3cha c higgs effective theory couplings double complex gh(2) , ga(2) , gphph(2), gh4(2), ga4(2) double precision ghh(2), gha(2), gaa(2), dumm common /COUPL_HEFT/ gh , ga , gphph , gh4, ga4, & ghh , gha , gaa , dumm