Warning, /include/isajet/dkyss3.inc is written in an unsupported language. File is not indexed.
0001 #ifndef CERNLIB_ISAJET_DKYSS3_INC
0002 #define CERNLIB_ISAJET_DKYSS3_INC
0003 *
0004 *
0005 * dkyss3.inc
0006 *
0007 C
0008 C Data for SUSY 3-body matrix elements. There is a double
0009 C pointer structure, first to modes, and then to poles that
0010 C make up the matrix element for that mode:
0011 C MELEM=-I in /DKYTAB/ points to the mode information:
0012 C J1SS3(I) = start of pole list for this mode
0013 C J2SS3(I) = end of pole list for this mode
0014 C WTSS3(I) = maximum weight for this mode
0015 C J1SS3<J<J2SS3 points to the corresponding poles:
0016 C KSS3(J) = pole type
0017 C AMSS3(J) = pole mass
0018 C ZISS3(2,J) = initial couplings
0019 C ZFSS3(2,J) = final couplings
0020 C For gaugino -> gaugino f fbar, the pole types are
0021 C KSS3=1: spin-1 pole in f-fbar channel
0022 C KSS3=2: spin-0 pole in gaugino-f channel
0023 C KSS3=3: spin-0 pole in gaugino-fbar channel
0024 C KSS3=4: spin-0 pole in f-fbar channel
0025 C The two couplings are the coefficients of 1,gamma_5 or of
0026 C gamma_mu,gamma_mu*gamma_5.
0027 C
0028 INTEGER MXMSS3,MXPSS3
0029 PARAMETER (MXMSS3=1000)
0030 PARAMETER (MXPSS3=2000)
0031 COMMON/DKYSS3/NMSS3,NPSS3,
0032 $J1SS3(MXMSS3),J2SS3(MXMSS3),WTSS3(MXMSS3),
0033 $KSS3(MXPSS3),AMSS3(MXPSS3),ZISS3(2,MXPSS3),ZFSS3(2,MXPSS3)
0034 INTEGER NMSS3,NPSS3,KSS3,J1SS3,J2SS3
0035 REAL WTSS3,AMSS3
0036 COMPLEX ZISS3,ZFSS3
0037
0038 #endif
