ISAJET/isajet/q1q2.inc

   1 #ifndef CERNLIB_ISAJET_Q1Q2_INC
   2 #define CERNLIB_ISAJET_Q1Q2_INC
   3 *
   4 *
   5 * q1q2.inc
   6 *
   7       INTEGER MXGOQ,MXGOJ
   8       PARAMETER (MXGOQ=85,MXGOJ=8)
   9       COMMON/Q1Q2/GOQ(MXGOQ,MXGOJ),GOALL(MXGOJ),GODY(4),STDDY,
  10      $GOWW(25,2),ALLWW(2),GOWMOD(25,MXGOJ)
  11       SAVE /Q1Q2/
  12       LOGICAL GOQ,GOALL,GODY,STDDY,GOWW,ALLWW,GOWMOD
  13
  14 #endif