ISAJET/isajet/ssmode.inc

   1 #ifndef CERNLIB_ISAJET_SSMODE_INC
   2 #define CERNLIB_ISAJET_SSMODE_INC
   3 *
   4 *
   5 * ssmode.inc
   6 *
   7 C          MXSS         =  maximum number of modes
   8 C          NSSMOD       = number of modes
   9 C          ISSMOD       = initial particle
  10 C          JSSMOD       = final particles
  11 C          GSSMOD       = width
  12 C          BSSMOD       = branching ratio
  13 C          MSSMOD       = decay matrix element pointer
  14 C          LSSMOD       = logical flag used internally by SSME3
  15       INTEGER MXSS
  16       PARAMETER (MXSS=1000)
  17       COMMON/SSMODE/NSSMOD,ISSMOD(MXSS),JSSMOD(5,MXSS),GSSMOD(MXSS)
  18      $,BSSMOD(MXSS),MSSMOD(MXSS),LSSMOD
  19       INTEGER NSSMOD,ISSMOD,JSSMOD,MSSMOD
  20       REAL GSSMOD,BSSMOD
  21       LOGICAL LSSMOD
  22       SAVE /SSMODE/
  23
  24 #endif