ISAJET/isajet/sspols.inc

   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