Back to home page

EIC code displayed by LXR

 
 

    


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

0001 #ifndef CERNLIB_ISAJET_GETJET_INC
0002 #define CERNLIB_ISAJET_GETJET_INC
0003 *
0004 *
0005 * getjet.inc
0006 *
0007       INTEGER   NJMAX
0008       PARAMETER (NJMAX=50)
0009       COMMON/GETCOM/JETNO(NCY,NCPHI),NCJET,PCJET(4,NJMAX),ETJET(NJMAX)
0010       SAVE /GETCOM/
0011 #if defined(CERNLIB_LEVEL2)
0012 #include "isajet/l2getj.inc"
0013 * Ignoring t=pass
0014 #endif
0015       INTEGER   JETNO,NCJET
0016       REAL      PCJET,ETJET
0017 
0018 #endif