replaces AliPHOSAliEnFile: references to AliEn removed
[u/mrichter/AliRoot.git] / PYTHIA6 / pythia6.inc
1 C...This file contains a complete listing of all PYTHIA 
2 C...commonblocks, and additionally some recommended other 
3 C...declarations. You may copy this to the top of your
4 C...mina program and then eliminate unnecessary parts.
5 C  Jun 19 1998 P.Murat(CDF): add implicit for integers
6 C  Mar 18 1998 P.Murat: remove implicits, add explicit type definition
7 c                       for all the variables
8 C-----------------------------------------------------------------
9  
10 C...All real arithmetic in double precision.
11 c      IMPLICIT DOUBLE  PRECISION(A-H, O-Z)
12 c      implicit integer (i-n)
13 C...Three Pythia functions return integers, so need declaring.
14       INTEGER PYK,PYCHGE,PYCOMP
15 C...Parameter statement to help give large particle numbers
16 C...(left- and righthanded SUSY, excited fermions).
17       integer  KSUSY1, KSUSY2, KEXCIT
18       PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000)
19
20 C...Commonblocks.
21 C...The event record.
22       COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5)
23       integer       N,NPAD,K
24       real*8        P,V
25 C...Parameters.
26       COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
27       integer       MSTU, MSTJ
28       real*8        PARU, PARJ
29 C...Particle properties + some flavour parameters.
30       COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4)
31       integer       KCHG
32       real*8        PMAS, PARF, VCKM
33 C...Decay information.
34       COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5)
35       integer       MDCY, MDME, KFDP
36       real*8        BRAT
37 C...Particle names
38       COMMON/PYDAT4/CHAF(500,2)
39       CHARACTER CHAF*16
40 C...Random number generator information.
41       COMMON/PYDATR/MRPY(6),RRPY(100)
42       integer       MRPY
43       real*8        RRPY
44 C...Selection of hard scattering subprocesses.
45       COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200)
46       integer       MSEL, MSELPD, MSUB, KFIN
47       real*8        CKIN
48 C...Parameters. 
49       COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
50       integer       MSTP, MSTI
51       real*8        PARP, PARI
52 C...Internal variables.
53       COMMON/PYINT1/MINT(400),VINT(400)
54       integer       mint
55       real*8        vint
56 C...Process information.
57       COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2)
58       integer       ISET, KFPR, ICOL
59       real*8        COEF
60 C...Parton distributions and cross sections.
61       COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000)
62       integer       ISIG
63       real*8        XSFX, SIGH
64 C...Resonance width and secondary decay treatment.
65       COMMON/PYINT4/MWID(500),WIDS(500,5)
66       integer       MWID
67       real*8        WIDS
68 C...Generation and cross section statistics.
69       COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3)
70       integer       NGENPD, NGEN
71       real*8        XSEC
72 C...Process names.
73       COMMON/PYINT6/PROC(0:500)
74       CHARACTER PROC*28
75 C...Total cross sections.
76       COMMON/PYINT7/SIGT(0:6,0:6,0:5)
77       real*8        SIGT
78 C...Photon parton distributions: total and valence only.
79       COMMON/PYINT8/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6), 
80      &XPDIR(-6:6) 
81       real*8        XPVMD, XPANL, XPANH, XPBEH, XPDIR
82       COMMON/PYINT9/VXPVMD(-6:6),VXPANL(-6:6),VXPANH(-6:6),VXPDGM(-6:6) 
83       real*8        VXPVMD, VXPANL, VXPANH, VXPDGM
84 C...Setting up user-defined processes.
85       COMMON/PYUPPR/NUP,KUP(20,7),NFUP,IFUP(10,2),PUP(20,5),Q2UP(0:10)
86       integer       NUP, KUP, NFUP, IFUP
87       real*8        PUP, Q2UP
88 C...Supersymmetry parameters.
89       COMMON/PYMSSM/IMSS(0:99),RMSS(0:99)
90       integer       IMSS
91       real*8        RMSS
92 C...Supersymmetry mixing matrices.
93       COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2),
94      &SFMIX(16,4)
95       real*8        ZMIX, UMIX, VMIX, SMZ, SMW, SFMIX
96 C...Parameters for Gauss integration of supersymmetric widths.
97       COMMON/PYINTS/XXM(20)
98       real*8        XXM
99 C...Histogram information.
100       COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000)
101       integer       IHIST, INDX
102       real*8        BIN