[cvs] / MG_ME / Models / heft / coupl.inc Repository:
ViewVC logotype

View of /MG_ME/Models/heft/coupl.inc

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (download) (annotate)
Tue Dec 7 22:14:32 2010 UTC (6 years, 11 months ago) by madgraph
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +4 -4 lines
Changed heft model to be compatible with MG5
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, dum1
      common /COUPL_GAUGE/ gal   , gad   , gau   , gwf   ,
     &                     gzn   , gzl   , gzd   , gzu   ,
     &                     gw, gwwa, gwwz, dum1
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

Mail to administrator
ViewVC Help
Powered by ViewVC 1.0.0