ISAJET/isajet/jetlim.inc

   1 #ifndef CERNLIB_ISAJET_JETLIM_INC
   2 #define CERNLIB_ISAJET_JETLIM_INC
   3 *
   4 *
   5 * jetlim.inc
   6 *
   7 C          Jet limits
   8       INTEGER MXLIM
   9       PARAMETER (MXLIM=8)
  10       INTEGER MXLX12
  11       PARAMETER (MXLX12=12*MXLIM)
  12       COMMON/JETLIM/PMIN(MXLIM),PMAX(MXLIM),PTMIN(MXLIM),PTMAX(MXLIM),
  13      $YJMIN(MXLIM),YJMAX(MXLIM),PHIMIN(MXLIM),PHIMAX(MXLIM),
  14      $XJMIN(MXLIM),XJMAX(MXLIM),THMIN(MXLIM),THMAX(MXLIM),
  15      $SETLMJ(12*MXLIM)
  16       SAVE /JETLIM/
  17       COMMON/FIXPAR/FIXP(MXLIM),FIXPT(MXLIM),FIXYJ(MXLIM),
  18      $FIXPHI(MXLIM),FIXXJ(MXLIM),FIXQM,FIXQT,FIXYW,FIXXW,FIXPHW
  19       SAVE /FIXPAR/
  20       COMMON/SGNPAR/CTHS(2,MXLIM),THS(2,MXLIM),YJS(2,MXLIM),XJS(2,MXLIM)
  21       SAVE /SGNPAR/
  22       REAL      PMIN,PMAX,PTMIN,PTMAX,YJMIN,YJMAX,PHIMIN,PHIMAX,XJMIN,
  23      +          XJMAX,THMIN,THMAX,BLIMS(12*MXLIM),CTHS,THS,YJS,XJS
  24       LOGICAL SETLMJ
  25       LOGICAL FIXQM,FIXQT,FIXYW,FIXXW,FIXPHW
  26       LOGICAL FIXP,FIXPT,FIXYJ,FIXPHI,FIXXJ
  27       EQUIVALENCE(BLIMS(1),PMIN(1))
  28
  29 #endif