Warning, /include/isajet/sspols.inc is written in an unsupported language. File is not indexed.
0001 #ifndef CERNLIB_ISAJET_SSPOLS_INC
0002 #define CERNLIB_ISAJET_SSPOLS_INC
0003 *
0004 *
0005 * sspols.inc
0006 *
0007 C Polarizations in SUSY decays
0008 C PTAUj(i) = P_tau for tauj -> ziss tau
0009 C PTAUZi(j) = P_tau for ziss -> tauj tau
0010 C PTAUZZ = P_tau for z2ss -> z1ss tau tau
0011 C PTAUWZ = P_tau for w1ss -> z1ss tau nutau
0012 COMMON/SSPOLS/PTAU1(4),PTAU2(4),PTAUZ2(2),PTAUZ3(2),PTAUZ4(2),
0013 $PTAUZZ,PTAUWZ
0014 SAVE /SSPOLS/
0015 REAL PTAU1,PTAU2,PTAUZ2,PTAUZ3,PTAUZ4,PTAUZZ,PTAUWZ
0016
0017 #endif
