ISAJET/isajet/wcon.inc

   1 #ifndef CERNLIB_ISAJET_WCON_INC
   2 #define CERNLIB_ISAJET_WCON_INC
   3 *
   4 *
   5 * wcon.inc
   6 *
   7       COMMON/WCON/SIN2W,WMASS(4),WGAM(4),AQ(12,4),BQ(12,4),COUT(4),
   8      1MATCH(25,4),WCBR(25,4),CUTOFF,CUTPOW,TBRWW(4,2),RBRWW(12,4,2),EZ,
   9      2AQDP(12,4),BQDP(12,4),EZDP,WFUDGE
  10       SAVE /WCON/
  11 #if defined(CERNLIB_DOUBLE)
  12 #include "isajet/wcon2.inc"
  13 * Ignoring t=pass
  14 #endif
  15 #if defined(CERNLIB_SINGLE)
  16 #include "isajet/wcon1.inc"
  17 * Ignoring t=pass
  18 #endif
  19       INTEGER   MATCH
  20       REAL      SIN2W,WMASS,WGAM,AQ,BQ,COUT,WCBR,CUTOFF,CUTPOW,TBRWW,
  21      +          RBRWW,EZ,WFUDGE
  22       COMMON/WCON2/CUMWBR(25,3)
  23       REAL CUMWBR
  24
  25 #endif