ISAJET/isajet/dkyss3.inc

   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