ISAJET/isajet/jwork2.inc

   1 #ifndef CERNLIB_ISAJET_JWORK2_INC
   2 #define CERNLIB_ISAJET_JWORK2_INC
   3 *
   4 *
   5 * jwork2.inc
   6 *
   7       COMMON/JWORK2/JVIR(2),PFINAL(5),SGN,ZMIN,ZMAX,DZMAX,JET,GLFORC(2),
   8      $ZGOOD,JIN(400),FXTEST(MXJSET)
   9       SAVE /JWORK2/
  10       LOGICAL GLFORC,ZGOOD
  11       INTEGER   JVIR,JET,JIN
  12       REAL      PFINAL,SGN,ZMIN,ZMAX,DZMAX,FXTEST
  13
  14 #endif