]>
Commit | Line | Data |
---|---|---|
0795afa3 | 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 |