]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #ifndef CERNLIB_ISAJET_SSPOLS_INC |
2 | #define CERNLIB_ISAJET_SSPOLS_INC | |
3 | * | |
4 | * | |
5 | * sspols.inc | |
6 | * | |
7 | C Polarizations in SUSY decays | |
8 | C PTAUj(i) = P_tau for tauj -> ziss tau | |
9 | C PTAUZi(j) = P_tau for ziss -> tauj tau | |
10 | C PTAUZZ = P_tau for z2ss -> z1ss tau tau | |
11 | C PTAUWZ = P_tau for w1ss -> z1ss tau nutau | |
12 | COMMON/SSPOLS/PTAU1(4),PTAU2(4),PTAUZ2(2),PTAUZ3(2),PTAUZ4(2), | |
13 | $PTAUZZ,PTAUWZ | |
14 | SAVE /SSPOLS/ | |
15 | REAL PTAU1,PTAU2,PTAUZ2,PTAUZ3,PTAUZ4,PTAUZZ,PTAUWZ | |
16 | ||
17 | #endif |