1 #ifndef CERNLIB_ISAJET_MGCOMS_INC
2 #define CERNLIB_ISAJET_MGCOMS_INC
7 C===== Begin common blocks used by MadGraph
9 COMMON /COUP1/ GW, GWWA, GWWZ
11 REAL*8 GAL(2),GAU(2),GAD(2),GWF(2)
12 COMMON /COUP2A/ GAL, GAU, GAD, GWF
14 REAL*8 GZN(2),GZL(2),GZU(2),GZD(2),G1(2)
15 COMMON /COUP2B/ GZN, GZL, GZU, GZD, G1
17 REAL*8 GWWH,GZZH,GHHH,GWWHH,GZZHH,GHHHH
18 COMMON /COUP3/ GWWH,GZZH,GHHH,GWWHH,GZZHH,GHHHH
23 REAL*8 WMASS,WWIDTH,ZMASS,ZWIDTH
24 COMMON /VMASS1/ WMASS,WWIDTH,ZMASS,ZWIDTH
26 REAL*8 AMASS,AWIDTH,HMASS,HWIDTH
27 COMMON /VMASS2/ AMASS,AWIDTH,HMASS,HWIDTH
29 REAL*8 FMASS(12), FWIDTH(12)
30 COMMON /FERMIONS/ FMASS, FWIDTH
33 COMMON /COUPQCD/ GG, G
35 C===== End common blocks used by MadGraph