This commit was generated by cvs2svn to compensate for changes in r1018,
[u/mrichter/AliRoot.git] / ZDC / zdc_common.inc
1 *
2 * Variables for beam divergency and crossing angle (important for ZDC !)
3 *
4       COMMON/BMDIV/BMDIV,BMCRA,IFLCR
5       REAL BMDIV,BMCRA
6       INTEGER IFLCR
7 *
8 *
9 * Variables relative to size (and offset) of the beam
10 *
11       COMMON /BMTYPE/ BEAMTY,EPERN
12       INTEGER BEAMTY
13       COMMON /INBEAM/ FX,FY,SIGX,SIGY
14 *
15 *
16 * Flags and arrays for the generation of Fermi momentum of the spectators
17 *
18       COMMON/CFERMI/IFERMI,
19      +            PROBINTP(0:200),PROBINTN(0:200),PP(0:200),DDP(3)
20 *
21 *
22 * Geometrical quantities relative to ZDC
23 *
24       COMMON /ZDC_CGEOM/
25      + HDZN(3), HDZP(3), FIZN(3), FIZP(3), GRZN(3), GRZP(3),
26      + NCEN(3), NCEP(3), ZNPOS(3), ZPPOS(3)
27 *
28 *
29 * Steering flags and variables for HIJING/VENUS
30 *
31       COMMON/EVGN/IHIJ,IHIJF,IHIJSP,IVNU,IVNUF,IVNSP
32       COMMON/EVVAR/BIMP,PARTI
33 *
34 *
35 * Files for input/output
36 *
37       CHARACTER*60 FILEA,FILEV,FILEH
38       COMMON/FIL/FILEA,FILEV,FILEH
39       INTEGER FILEI(15),FILEJ(15),FILEK(15)
40       EQUIVALENCE(FILEA,FILEI(1))
41       EQUIVALENCE(FILEV,FILEJ(1))
42       EQUIVALENCE(FILEH,FILEK(1))
43 *
44 *
45 * Variables for hit storage
46 *
47 * Set ZDC
48 *
49       PARAMETER(NVZN=2)
50       PARAMETER(NVZP=2)
51       COMMON /ZDC_HITS/ ZSET,ZN1,ZP1,CHNMSZN(NVZN),CHNMSZP(NVZP),
52      +                  NBITSZN(NVZN),NBITSZP(NVZP),IDTYPZN,IDTYPZP,
53      +                  NWHI,NWDI,ITOLD
54       CHARACTER*4 ZSET,ZN1,ZP1
55       CHARACTER*4 CHNMSZN,CHNMSZP
56       INTEGER NBITSZN,NBITSZP
57       INTEGER IDTYPZN,IDTYPZP
58 *
59 * Detectors ZN1,ZP1
60 *
61       PARAMETER(NHZ=7)
62       PARAMETER(NZPTX=2,NZPTY=2,NZNTX=2,NZNTY=2)
63       COMMON /ZDC_DET/ CHNAMH(NHZ),NBITSH(NHZ),ORIG(NHZ),FACT(NHZ),
64      +                 HITS(NHZ),HITSBUPP(NHZ),HITSBUPN(NHZ),
65      +                 NHSUM
66       CHARACTER*4 CHNAMH
67       INTEGER NBITSH
68       REAL ORIG,FACT
69       REAL HITS
70       REAL HITSBUPP,HITSBUPN
71       INTEGER NHSUM
72 *
73 * Variables for CWN
74 *
75       COMMON/ZNTVAR/NPA,ENE,SFL,
76      +XZP,YZP,
77      +EZP(NZPTX,NZPTY),NPP(NZPTX,NZPTY),
78      +XZN,YZN,
79      +EZN(NZNTX,NZNTY),NPN(NZNTX,NZNTY)
80 *
81       INTEGER NPA,NPP,NPN,SFL
82       REAL ENE,XZP,YZP,EZP,XZN,YZN,EZN
83 *
84 *
85 * Flag for showering of primary particles
86 *
87       COMMON/SECFL/ISECF
88 *
89 *
90 * Arrays for Cerenkov photons
91 *
92       PARAMETER (NBETA=4, NALFA=90, NBE=18)
93       COMMON /TABL/ TABLE(NBETA,NALFA,NBE)
94 *