Warning, /include/isajet/wcon.inc is written in an unsupported language. File is not indexed.
0001 #ifndef CERNLIB_ISAJET_WCON_INC
0002 #define CERNLIB_ISAJET_WCON_INC
0003 *
0004 *
0005 * wcon.inc
0006 *
0007 COMMON/WCON/SIN2W,WMASS(4),WGAM(4),AQ(12,4),BQ(12,4),COUT(4),
0008 1MATCH(25,4),WCBR(25,4),CUTOFF,CUTPOW,TBRWW(4,2),RBRWW(12,4,2),EZ,
0009 2AQDP(12,4),BQDP(12,4),EZDP,WFUDGE
0010 SAVE /WCON/
0011 #if defined(CERNLIB_DOUBLE)
0012 #include "isajet/wcon2.inc"
0013 * Ignoring t=pass
0014 #endif
0015 #if defined(CERNLIB_SINGLE)
0016 #include "isajet/wcon1.inc"
0017 * Ignoring t=pass
0018 #endif
0019 INTEGER MATCH
0020 REAL SIN2W,WMASS,WGAM,AQ,BQ,COUT,WCBR,CUTOFF,CUTPOW,TBRWW,
0021 + RBRWW,EZ,WFUDGE
0022 COMMON/WCON2/CUMWBR(25,3)
0023 REAL CUMWBR
0024
0025 #endif
