]>
Commit | Line | Data |
---|---|---|
0795afa3 | 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 |