ISAJET/isajet/jwork.inc

   1 #ifndef CERNLIB_ISAJET_JWORK_INC
   2 #define CERNLIB_ISAJET_JWORK_INC
   3 *
   4 *
   5 * jwork.inc
   6 *
   7       COMMON/JWORK/ZZC(MXJSET),JMATCH(MXJSET),TNEW,P1CM(4),
   8      1J1,J2,J3,J4,J5,E1CM,E2CM,E3CM,E4CM,E5CM
   9       SAVE /JWORK/
  10       LOGICAL TNEW
  11       EQUIVALENCE (J1,JJ(1)),(E1CM,EE(1))
  12       INTEGER   JMATCH,J1,J2,J3,J4,J5,JJ(5)
  13       REAL      ZZC,P1CM,E1CM,E2CM,E3CM,E4CM,E5CM,EE(5)
  14
  15 #endif