Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/isajet/listss.inc is written in an unsupported language. File is not indexed.

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