Back to home page

EIC code displayed by LXR

 
 

    


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

0001 #ifndef CERNLIB_ISAJET_Q1Q2_INC
0002 #define CERNLIB_ISAJET_Q1Q2_INC
0003 *
0004 *
0005 * q1q2.inc
0006 *
0007       INTEGER MXGOQ,MXGOJ
0008       PARAMETER (MXGOQ=85,MXGOJ=8)
0009       COMMON/Q1Q2/GOQ(MXGOQ,MXGOJ),GOALL(MXGOJ),GODY(4),STDDY,
0010      $GOWW(25,2),ALLWW(2),GOWMOD(25,MXGOJ)
0011       SAVE /Q1Q2/
0012       LOGICAL GOQ,GOALL,GODY,STDDY,GOWW,ALLWW,GOWMOD
0013 
0014 #endif