1 #include "isajet/pilot.h"
4 C Initialize common blocks for MadGraph code in ISAJET
5 C Note the QCD coupling constant is g=1.
7 #if defined(CERNLIB_IMPNONE)
11 #include "isajet/itapes.inc"
12 #include "isajet/sstype.inc"
13 #include "isajet/mgcoms.inc"
19 C Fermion masses and widths
21 FMASS(1) = AMGMW(IDE,1)
23 FMASS(3) = AMGMW(IDUP,1)
24 FMASS(4) = AMGMW(IDDN,1)
25 FMASS(5) = AMGMW(IDMU,1)
27 FMASS(7) = AMGMW(IDCH,1)
28 FMASS(8) = AMGMW(IDST,1)
29 FMASS(9) = AMGMW(IDTAU,1)
31 FMASS(11)= AMGMW(IDTP,1)
32 FMASS(12)= AMGMW(IDBT,1)
37 C Boson masses and widths
49 C Calls to Helas routines to set couplings
51 CALL COUP1X(SW2,GW,GWWA,GWWZ)
52 CALL COUP2X(SW2,GAL,GAU,GAD,GWF,GZN,GZL,GZU,GZD,G1)
53 CALL COUP3X(SW2,ZMASS,HMASS,GWWH,GZZH,GHHH,GWWHH,GZZHH,GHHHH)
55 CALL COUP4X(SW2,ZMASS,FMASS(I),GCHF(1,I))