]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #ifndef CERNLIB_ISAJET_MGCOMS_INC |
2 | #define CERNLIB_ISAJET_MGCOMS_INC | |
3 | * | |
4 | * | |
5 | * mgcoms.inc | |
6 | * | |
7 | C===== Begin common blocks used by MadGraph | |
8 | REAL*8 GW, GWWA, GWWZ | |
9 | COMMON /COUP1/ GW, GWWA, GWWZ | |
10 | SAVE /COUP1/ | |
11 | REAL*8 GAL(2),GAU(2),GAD(2),GWF(2) | |
12 | COMMON /COUP2A/ GAL, GAU, GAD, GWF | |
13 | SAVE /COUP2A/ | |
14 | REAL*8 GZN(2),GZL(2),GZU(2),GZD(2),G1(2) | |
15 | COMMON /COUP2B/ GZN, GZL, GZU, GZD, G1 | |
16 | SAVE /COUP2B/ | |
17 | REAL*8 GWWH,GZZH,GHHH,GWWHH,GZZHH,GHHHH | |
18 | COMMON /COUP3/ GWWH,GZZH,GHHH,GWWHH,GZZHH,GHHHH | |
19 | SAVE /COUP3/ | |
20 | COMPLEX*16 GCHF(2,12) | |
21 | COMMON /COUP4/ GCHF | |
22 | SAVE /COUP4/ | |
23 | REAL*8 WMASS,WWIDTH,ZMASS,ZWIDTH | |
24 | COMMON /VMASS1/ WMASS,WWIDTH,ZMASS,ZWIDTH | |
25 | SAVE /VMASS1/ | |
26 | REAL*8 AMASS,AWIDTH,HMASS,HWIDTH | |
27 | COMMON /VMASS2/ AMASS,AWIDTH,HMASS,HWIDTH | |
28 | SAVE /VMASS2/ | |
29 | REAL*8 FMASS(12), FWIDTH(12) | |
30 | COMMON /FERMIONS/ FMASS, FWIDTH | |
31 | SAVE /FERMIONS/ | |
32 | REAL*8 GG(2), G | |
33 | COMMON /COUPQCD/ GG, G | |
34 | SAVE /COUPQCD/ | |
35 | C===== End common blocks used by MadGraph | |
36 | ||
37 | #endif |