]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #ifndef CERNLIB_ISAJET_MGSIGS_INC |
2 | #define CERNLIB_ISAJET_MGSIGS_INC | |
3 | * | |
4 | * | |
5 | * mgsigs.inc | |
6 | * | |
7 | C | |
8 | C Running totals for MadGraph cross sections | |
9 | C WTTOT8/NWTTOT = total cross section | |
10 | C WTSUM8/NWT8 = channel cross section | |
11 | C IFUNC8, IDENT8 = MadGraph function code channel flavors | |
12 | C | |
13 | INTEGER MXSIG8 | |
14 | PARAMETER (MXSIG8=1000) | |
15 | COMMON /MGSIGS/WTTOT8,WTSUM8(MXSIG8),WTMAX8(MXSIG8),NSIG8, | |
16 | $NWTTOT,NWT8(MXSIG8),IFUNC8(MXSIG8),IDENT8(MXLIM+2,MXSIG8), | |
17 | $ISORT8(MXSIG8) | |
18 | REAL*8 WTTOT8,WTSUM8,WTMAX8 | |
19 | INTEGER NSIG8,NWTTOT,NWT8,IFUNC8,IDENT8,ISORT8 | |
20 | SAVE /MGSIGS/ | |
21 | ||
22 | #endif |