]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #ifndef CERNLIB_ISAJET_SSMODE_INC |
2 | #define CERNLIB_ISAJET_SSMODE_INC | |
3 | * | |
4 | * | |
5 | * ssmode.inc | |
6 | * | |
7 | C MXSS = maximum number of modes | |
8 | C NSSMOD = number of modes | |
9 | C ISSMOD = initial particle | |
10 | C JSSMOD = final particles | |
11 | C GSSMOD = width | |
12 | C BSSMOD = branching ratio | |
13 | C MSSMOD = decay matrix element pointer | |
14 | C LSSMOD = logical flag used internally by SSME3 | |
15 | INTEGER MXSS | |
16 | PARAMETER (MXSS=1000) | |
17 | COMMON/SSMODE/NSSMOD,ISSMOD(MXSS),JSSMOD(5,MXSS),GSSMOD(MXSS) | |
18 | $,BSSMOD(MXSS),MSSMOD(MXSS),LSSMOD | |
19 | INTEGER NSSMOD,ISSMOD,JSSMOD,MSSMOD | |
20 | REAL GSSMOD,BSSMOD | |
21 | LOGICAL LSSMOD | |
22 | SAVE /SSMODE/ | |
23 | ||
24 | #endif |