ISAJET/isajet/mgcoms.inc

   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