[u/mrichter/AliRoot.git] / ISAJET / isajet / wcon.inc

#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
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