2 * Variables for beam divergency and crossing angle (important for ZDC !)
4 COMMON/BMDIV/BMDIV,BMCRA,IFLCR
9 * Variables relative to size (and offset) of the beam
11 COMMON /BMTYPE/ BEAMTY,EPERN
13 COMMON /INBEAM/ FX,FY,SIGX,SIGY
16 * Flags and arrays for the generation of Fermi momentum of the spectators
19 + PROBINTP(0:200),PROBINTN(0:200),PP(0:200),DDP(3)
22 * Geometrical quantities relative to ZDC
25 + HDZN(3), HDZP(3), FIZN(3), FIZP(3), GRZN(3), GRZP(3),
26 + NCEN(3), NCEP(3), ZNPOS(3), ZPPOS(3)
29 * Steering flags and variables for HIJING/VENUS
31 COMMON/EVGN/IHIJ,IHIJF,IHIJSP,IVNU,IVNUF,IVNSP
32 COMMON/EVVAR/BIMP,PARTI
35 * Files for input/output
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))
45 * Variables for hit storage
51 COMMON /ZDC_HITS/ ZSET,ZN1,ZP1,CHNMSZN(NVZN),CHNMSZP(NVZP),
52 + NBITSZN(NVZN),NBITSZP(NVZP),IDTYPZN,IDTYPZP,
54 CHARACTER*4 ZSET,ZN1,ZP1
55 CHARACTER*4 CHNMSZN,CHNMSZP
56 INTEGER NBITSZN,NBITSZP
57 INTEGER IDTYPZN,IDTYPZP
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),
70 REAL HITSBUPP,HITSBUPN
75 COMMON/ZNTVAR/NPA,ENE,SFL,
77 +EZP(NZPTX,NZPTY),NPP(NZPTX,NZPTY),
79 +EZN(NZNTX,NZNTY),NPN(NZNTX,NZNTY)
81 INTEGER NPA,NPP,NPN,SFL
82 REAL ENE,XZP,YZP,EZP,XZN,YZN,EZN
85 * Flag for showering of primary particles
90 * Arrays for Cerenkov photons
92 PARAMETER (NBETA=4, NALFA=90, NBE=18)
93 COMMON /TABL/ TABLE(NBETA,NALFA,NBE)