ISAJET/isajet/dylim.inc

   1 #ifndef CERNLIB_ISAJET_DYLIM_INC
   2 #define CERNLIB_ISAJET_DYLIM_INC
   3 *
   4 *
   5 * dylim.inc
   6 *
   7       COMMON/DYLIM/QMIN,QMAX,QTMIN,QTMAX,YWMIN,YWMAX,XWMIN,XWMAX,THWMIN,
   8      2  THWMAX,PHWMIN,PHWMAX
   9      3  ,SETLMQ(12)
  10       SAVE /DYLIM/
  11       LOGICAL SETLMQ
  12       EQUIVALENCE(BLIM1(1),QMIN)
  13       REAL      QMIN,QMAX,QTMIN,QTMAX,YWMIN,YWMAX,XWMIN,XWMAX,THWMIN,
  14      +          THWMAX,PHWMIN,PHWMAX,BLIM1(12)
  15
  16 #endif