ISAJET/isajet/wgen.inc

   1 #ifndef CERNLIB_ISAJET_WGEN_INC
   2 #define CERNLIB_ISAJET_WGEN_INC
   3 *
   4 *
   5 * wgen.inc
   6 *
   7       COMMON/WGEN/PTGN(3,3),QGEN(3,3),PTSEL(3),QSEL(3),SIGSL(3),NKL,NKH
   8      1,EMSQ,EMGAM,KSEL,QSELWT(3)
   9       SAVE /WGEN/
  10       INTEGER   NKL,NKH,KSEL
  11       REAL      PTGN,QGEN,PTSEL,QSEL,SIGSL,EMSQ,EMGAM,QSELWT
  12
  13 #endif