ISAJET/isajet/mgsigs.inc

   1 #ifndef CERNLIB_ISAJET_MGSIGS_INC
   2 #define CERNLIB_ISAJET_MGSIGS_INC
   3 *
   4 *
   5 * mgsigs.inc
   6 *
   7 C
   8 C          Running totals for MadGraph cross sections
   9 C          WTTOT8/NWTTOT  = total cross section
  10 C          WTSUM8/NWT8    = channel cross section
  11 C          IFUNC8, IDENT8 = MadGraph function code channel flavors
  12 C
  13       INTEGER MXSIG8
  14       PARAMETER (MXSIG8=1000)
  15       COMMON /MGSIGS/WTTOT8,WTSUM8(MXSIG8),WTMAX8(MXSIG8),NSIG8,
  16      $NWTTOT,NWT8(MXSIG8),IFUNC8(MXSIG8),IDENT8(MXLIM+2,MXSIG8),
  17      $ISORT8(MXSIG8)
  18       REAL*8 WTTOT8,WTSUM8,WTMAX8
  19       INTEGER NSIG8,NWTTOT,NWT8,IFUNC8,IDENT8,ISORT8
  20       SAVE /MGSIGS/
  21
  22 #endif