ISAJET/isajet/listss.inc

   1 #ifndef CERNLIB_ISAJET_LISTSS_INC
   2 #define CERNLIB_ISAJET_LISTSS_INC
   3 *
   4 *
   5 * listss.inc
   6 *
   7 C          LISTSS IDENT and JETTYPE codes
   8 C       ISGL  ISUPL -ISUPL  ISDNL -ISDNL  ISSTL -ISSTL  ISCHL -ISCHL
   9 C          1      2      3      4      5      6      7      8      9
  10 C      ISBT1 -ISBT1  ISTP1 -ISTP1  ISUPR -ISUPR  ISDNR -ISDNR  ISSTR
  11 C         10     11     12     13     14     15     16     17     18
  12 C     -ISSTR  ISCHR -ISCHR  ISBT2 -ISBT2  ISTP2 -ISTP2   ISW1  -ISW1
  13 C         19     20     21     22     23     24     25     26     27
  14 C       ISW2  -ISW2   ISZ1   ISZ2   ISZ3   ISZ4  ISNEL -ISNEL   ISEL
  15 C         28     29     30     31     32     33     34     35     36
  16 C      -ISEL  ISNML -ISNML  ISMUL -ISMUL  ISNTL -ISNTL ISTAU1-ISTAU1
  17 C         37     38     39     40     41     42     43     44     45
  18 C       ISER  -ISER  ISMUR -ISMUR ISTAU2-ISTAU2      9      1     -1
  19 C         46     47     48     49     50     51     52     53     54
  20 C          2     -2      3     -3      4     -4      5     -5      6
  21 C         55     56     57     58     59     60     61     62     63
  22 C         -6     11    -11     12    -12     13    -13     14    -14
  23 C         64     65     66     67     68     69     70     71     72
  24 C         15    -15     16    -16     10     80    -80     90   ISHL
  25 C         73     74     75     76     77     78     79     80     81
  26 C       ISHH   ISHA   ISHC  -ISHC
  27 C         82     83     84     85
  28       COMMON/LISTSS/LISTSS(85)
  29       INTEGER LISTSS
  30       SAVE /LISTSS/
  31
  32 #endif