ISAJET/isajet/mbgen.inc

   1 #ifndef CERNLIB_ISAJET_MBGEN_INC
   2 #define CERNLIB_ISAJET_MBGEN_INC
   3 *
   4 *
   5 * mbgen.inc
   6 *
   7       INTEGER   LIMPOM
   8       PARAMETER (LIMPOM=20)
   9       COMMON/MBGEN/POMWT(LIMPOM),POMGEN(LIMPOM),MNPOM,MXPOM,PDIFFR,
  10      $NPOM,XBARY(2),DXBARY(2),XPOM(LIMPOM,2)
  11       SAVE /MBGEN/
  12       INTEGER   MNPOM,MXPOM,NPOM
  13       REAL      POMWT,POMGEN,PDIFFR,XBARY,DXBARY,XPOM
  14
  15 #endif