← Back to branch summary

~mg5core1/mg5amcnlo/2.6.4

« back to all changes in this revision

Viewing changes to DECAY/coupl.inc

move ./decay to ./mg5decay; resolve unit tests (n.b. __init__ does not check keys of input dictionaries, followed last revision)

Show diffs side-by-side

added added

removed removed

Lines of Context:
DECAY/coupl.inc
 
1
c====================================================================
 
2
c
 
3
c  Define common block containing all coupling constants and masses
 
4
c  which are used in the HELAS routines.
 
5
c
 
6
c  These include masses, widths and real/complex couplings.
 
7
c
 
8
c  This file can be built automatically from particles.dat and
 
9
c  interactions.dat
 
10
c
 
11
c====================================================================
 
12
c
 
13
c     QCD 
 
14
c
 
15
      double complex       gg(2)
 
16
      double precision     g
 
17
      common /COUPL_QCD/   g,gg   
 
18
c
 
19
c    kinematical masses
 
20
c
 
21
      double precision     hmass, wmass, zmass, amass,
 
22
     &                     tmass, bmass, lmass, cmass
 
23
      common /COUPL_MASS/  hmass, wmass, zmass, amass,
 
24
     &                     tmass, bmass, lmass, cmass
 
25
c
 
26
c   widths
 
27
c
 
28
      double precision     hwidth, wwidth, zwidth, 
 
29
     &                     twidth, lwidth, awidth
 
30
      common /COUPL_WIDTH/ hwidth, wwidth, zwidth, 
 
31
     &                     twidth, lwidth, awidth
 
32
c
 
33
c  couplings in the feynman rules
 
34
c
 
35
      double complex       gal(2), gad(2), gau(2), gwf(2),
 
36
     &                     gzn(2), gzl(2), gzd(2), gzu(2)
 
37
      double precision     gw, gwwa, gwwz
 
38
      common /COUPL_GAUGE/ gal   , gad   , gau   , gwf   ,
 
39
     &                     gzn   , gzl   , gzd   , gzu   ,
 
40
     &                     gw, gwwa, gwwz
 
41
c
 
42
      double complex       gwfc(2),  gwfs(2), gwfm(2)
 
43
      common /coupl_ckm/   gwfc,     gwfs   , gwfm      
 
44
c
 
45
      double complex       gwwh, gzzh, gwwhh, gzzhh, ghhh, ghhhh
 
46
      common /COUPL_SCAL/  gwwh, gzzh, gwwhh, gzzhh, ghhh, ghhhh
 
47
c
 
48
      double complex       ghtop(2), ghbot(2), ghtau(2), ghcha(2)
 
49
      common /COUPL_YUK/   ghtop   , ghbot   , ghtau   , ghcha
 
50