ISAJET/isajet/hcon.inc

   1 #ifndef CERNLIB_ISAJET_HCON_INC
   2 #define CERNLIB_ISAJET_HCON_INC
   3 *
   4 *
   5 * hcon.inc
   6 *
   7       COMMON/HCON/ANWWWW(4,4,4),ADWWWW(2,4),AIWWWW(4)
   8      $,HMASS,HGAM,HGAMS(29),ETAHGG,MATCHH(29),ZSTARS(4,2)
   9      $,IHTYPE,HGAMSS(85,85)
  10       SAVE /HCON/
  11 #if defined(CERNLIB_DOUBLE)
  12 #include "isajet/hcon2.inc"
  13 * Ignoring t=pass
  14 #endif
  15 #if defined(CERNLIB_SINGLE)
  16 #include "isajet/hcon1.inc"
  17 * Ignoring t=pass
  18 #endif
  19       INTEGER   MATCHH,IHTYPE
  20       REAL      HMASS,HGAM,HGAMS,ETAHGG,ZSTARS,HGAMSS
  21
  22 #endif