7 //*----------------------------------------------------------------------*
9 //* DIMPAR: included in any routine *
11 //* Mxxrgn = maximum number of regions *
12 //* Mxxmdf = maximum number of media in Fluka *
13 //* Mxxmde = maximum number of media in Emf *
14 //* Mfstck = stack dimension in Fluka *
15 //* Mestck = stack dimension in Emf *
16 //* Mostck = stack dimension for optical photons *
17 //* Mxprsn = secondary stack dimension for resonance generator *
18 //* Mxpdpm = secondary stack dimension for DPM generators *
19 //* Mxpscs = secondary stack dimension overall *
20 //* Mxoutu = maximum number of output units *
21 //* Nallwp = number of allowed particles *
22 //* Nelemx = number of maximum allowed elements of a compound *
24 //* Mpdpdx = number of particle types for which EM dE/dx pro- *
25 //* cesses (ion,pair,bremss) have to be computed *
26 //* Mxhttr = maximum number of (hit) target nucleons for a *
27 //* given collision generation *
28 //* Icomax = maximum number of materials for compounds/mixtures *
29 //* (equal to the sum of the number of materials for *
30 //* every compound/mixture) *
31 //* Ichmax = maximum number of harmonic oscillator levels for *
32 //* compounds/mixtures (equal to the sum of the number *
33 //* of harmonic oscillator levels for every compound *
35 //* Nstbis = number of stable isotopes recorded in common iso- *
37 //* Nqstis = number of "quasi" stable isotopes which are not *
38 //* in the standard isotopic composition of a given *
39 //* element, but for which special data (like GDR data)*
40 //* are anyway available *
41 //* Ntstis = total number of stable ans "quasi" stable isotopes *
42 //* Mxpabl = number of resonances inside Hadrin common blocks *
43 //* Idmaxp = number of particles/resonances defined in common *
45 //* Idmxdc = number of particles/resonances decay channels *
46 //* defined in common decayc *
47 //* Ihypmx = maximum number of hyperons in a hypernucleus *
48 //* Mkbmx1 = dimension for KWB real spare array in Fluka Stack *
49 //* Mkbmx2 = dimension for KWB int. spare array in Fluka Stack *
50 //* Mxirrd = maximum number of irradiation sub-intervals *
51 //* Mxtrdc = maximum number of decay (cooling) times *
52 //* Nktl = overall dimension parameter for EMF bremsstrahlung *
54 //*----------------------------------------------------------------------*
56 const Int_t mxxrgn = 20000;
57 // const Int_t mxxmdf = 510;
58 // const Int_t mxxmde = 502;
59 const Int_t mxxmdf = 710; // 2006.3
60 const Int_t mxxmde = 702; // 2006.3
61 const Int_t mfstck = 6500;
62 const Int_t mestck = 100;
63 const Int_t mostck = 2000;
64 const Int_t mxprsn = 100;
65 const Int_t mxpdpm = 800;
66 const Int_t mxpscs = 4999;
67 const Int_t mxoutu = 50;
68 const Int_t nallwp = 64;
69 const Int_t nelemx = 80;
70 const Int_t mpdpdx = 18;
71 const Int_t mxhttr = 260;
72 const Int_t mxseax = 20; // 2006.3
73 const Int_t mxhtnc = mxseax + 1; // 2006.3
74 // const Int_t icomax = 1000;
75 const Int_t icomax = 2400; // 2006.3
76 const Int_t ichmax = icomax+mxxmdf;
77 const Int_t nstbis = 304;
78 const Int_t nqstis = 46;
79 const Int_t ntstis = nstbis + nqstis;
82 //* const Int_t mxpabl = 110;
83 const Int_t mxpabl = 120;
84 const Int_t idmaxp = 450;
85 const Int_t idmxdc = 2000;
86 const Int_t mxmcin = 410;
87 const Int_t ihypmx = 4;
89 //* const Int_t mkbmx1 = 9;
90 //* const Int_t mkbmx2 = 3;
91 const Int_t mkbmx1 = 11;
92 const Int_t mkbmx2 = 11;
93 const Int_t mxirrd = 500;
94 const Int_t mxtrdc = 500;
95 const Int_t nktl = 17;