Warning, /include/isajet/ssmode.inc is written in an unsupported language. File is not indexed.
0001 #ifndef CERNLIB_ISAJET_SSMODE_INC
0002 #define CERNLIB_ISAJET_SSMODE_INC
0003 *
0004 *
0005 * ssmode.inc
0006 *
0007 C MXSS = maximum number of modes
0008 C NSSMOD = number of modes
0009 C ISSMOD = initial particle
0010 C JSSMOD = final particles
0011 C GSSMOD = width
0012 C BSSMOD = branching ratio
0013 C MSSMOD = decay matrix element pointer
0014 C LSSMOD = logical flag used internally by SSME3
0015 INTEGER MXSS
0016 PARAMETER (MXSS=1000)
0017 COMMON/SSMODE/NSSMOD,ISSMOD(MXSS),JSSMOD(5,MXSS),GSSMOD(MXSS)
0018 $,BSSMOD(MXSS),MSSMOD(MXSS),LSSMOD
0019 INTEGER NSSMOD,ISSMOD,JSSMOD,MSSMOD
0020 REAL GSSMOD,BSSMOD
0021 LOGICAL LSSMOD
0022 SAVE /SSMODE/
0023
0024 #endif
