+++ /dev/null
-#ifndef CERNLIB_ISAJET_WCON_INC
-#define CERNLIB_ISAJET_WCON_INC
-*
-*
-* wcon.inc
-*
- COMMON/WCON/SIN2W,WMASS(4),WGAM(4),AQ(12,4),BQ(12,4),COUT(4),
- 1MATCH(25,4),WCBR(25,4),CUTOFF,CUTPOW,TBRWW(4,2),RBRWW(12,4,2),EZ,
- 2AQDP(12,4),BQDP(12,4),EZDP,WFUDGE
- SAVE /WCON/
-#if defined(CERNLIB_DOUBLE)
-#include "isajet/wcon2.inc"
-* Ignoring t=pass
-#endif
-#if defined(CERNLIB_SINGLE)
-#include "isajet/wcon1.inc"
-* Ignoring t=pass
-#endif
- INTEGER MATCH
- REAL SIN2W,WMASS,WGAM,AQ,BQ,COUT,WCBR,CUTOFF,CUTPOW,TBRWW,
- + RBRWW,EZ,WFUDGE
- COMMON/WCON2/CUMWBR(25,3)
- REAL CUMWBR
-
-#endif