ISAJET/isajet/force.inc

   1 #ifndef CERNLIB_ISAJET_FORCE_INC
   2 #define CERNLIB_ISAJET_FORCE_INC
   3 *
   4 *
   5 * force.inc
   6 *
   7       INTEGER   MXFORC
   8       PARAMETER (MXFORC=40)
   9       COMMON/FORCE/NFORCE,IFORCE(MXFORC),MFORCE(5,MXFORC)
  10      $,LOOK2(2,MXFORC),LOOKST(MXFORC),MEFORC(MXFORC)
  11       SAVE /FORCE/
  12       INTEGER   NFORCE,IFORCE,MFORCE,LOOK2,LOOKST,MEFORC
  13
  14 #endif