]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #ifndef CERNLIB_ISAJET_DKYSS3_INC |
2 | #define CERNLIB_ISAJET_DKYSS3_INC | |
3 | * | |
4 | * | |
5 | * dkyss3.inc | |
6 | * | |
7 | C | |
8 | C Data for SUSY 3-body matrix elements. There is a double | |
9 | C pointer structure, first to modes, and then to poles that | |
10 | C make up the matrix element for that mode: | |
11 | C MELEM=-I in /DKYTAB/ points to the mode information: | |
12 | C J1SS3(I) = start of pole list for this mode | |
13 | C J2SS3(I) = end of pole list for this mode | |
14 | C WTSS3(I) = maximum weight for this mode | |
15 | C J1SS3<J<J2SS3 points to the corresponding poles: | |
16 | C KSS3(J) = pole type | |
17 | C AMSS3(J) = pole mass | |
18 | C ZISS3(2,J) = initial couplings | |
19 | C ZFSS3(2,J) = final couplings | |
20 | C For gaugino -> gaugino f fbar, the pole types are | |
21 | C KSS3=1: spin-1 pole in f-fbar channel | |
22 | C KSS3=2: spin-0 pole in gaugino-f channel | |
23 | C KSS3=3: spin-0 pole in gaugino-fbar channel | |
24 | C KSS3=4: spin-0 pole in f-fbar channel | |
25 | C The two couplings are the coefficients of 1,gamma_5 or of | |
26 | C gamma_mu,gamma_mu*gamma_5. | |
27 | C | |
28 | INTEGER MXMSS3,MXPSS3 | |
29 | PARAMETER (MXMSS3=1000) | |
30 | PARAMETER (MXPSS3=2000) | |
31 | COMMON/DKYSS3/NMSS3,NPSS3, | |
32 | $J1SS3(MXMSS3),J2SS3(MXMSS3),WTSS3(MXMSS3), | |
33 | $KSS3(MXPSS3),AMSS3(MXPSS3),ZISS3(2,MXPSS3),ZFSS3(2,MXPSS3) | |
34 | INTEGER NMSS3,NPSS3,KSS3,J1SS3,J2SS3 | |
35 | REAL WTSS3,AMSS3 | |
36 | COMPLEX ZISS3,ZFSS3 | |
37 | ||
38 | #endif |