]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 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 | * |