ISAJET/code/amgmw.F

   1 #include "isajet/pilot.h"
   2       FUNCTION AMGMW(I,J)
   3 C
   4 C          Get masses and widths from ISAJET commons for MadGraph
   5 C          I = particle IDENT
   6 C          J = 1 for mass
   7 C            = 2 for width
   8 C            = 3 for sin^2(theta)
   9 C          Needed to avoid common block name clashes with MadGraph
  10 C
  11 #if defined(CERNLIB_IMPNONE)
  12       IMPLICIT NONE
  13 #endif
  14 #include "isajet/itapes.inc"
  15 #include "isajet/wcon.inc"
  16 #include "isajet/hcon.inc"
  17 #include "isajet/sstype.inc"
  18       INTEGER I,J
  19       REAL AMGMW,AMASS
  20 C
  21       IF(J.EQ.1) THEN
  22         AMGMW=AMASS(I)
  23       ELSEIF(J.EQ.2.AND.I.EQ.IDW) THEN
  24         AMGMW=WGAM(2)
  25       ELSEIF(J.EQ.2.AND.I.EQ.IDZ) THEN
  26         AMGMW=WGAM(4)
  27       ELSEIF(J.EQ.2.AND.I.EQ.IDH) THEN
  28         AMGMW=HGAM
  29       ELSEIF(J.EQ.3.AND.I.EQ.1) THEN
  30         AMGMW=SIN2W
  31       ELSE
  32         WRITE(ITLIS,*) 'ERROR IN AMGMW: I,J =',I,J
  33         STOP99
  34       ENDIF
  35       RETURN
  36       END