10 //*=== dimpar ===========================================================*
12 //*----------------------------------------------------------------------*
14 //* dimpar: included in any routine *
16 //* mxxrgn = maximum number of regions *
17 //* mxxmdf = maximum number of media in fluka *
18 //* mxxmde = maximum number of media in emf *
19 //* mfstck = stack dimension in fluka *
20 //* mestck = stack dimension in emf *
21 //* mostck = stack dimension for optical photons *
22 //* mxprsn = secondary stack dimension for resonance generator *
23 //* mxpdpm = secondary stack dimension for dpm generators *
24 //* mxoutu = maximum number of output units *
25 //* nallwp = number of allowed particles *
26 //* nelemx = number of maximum allowed elements of a compound *
27 //* mpdpdx = number of particle types for which em de/dx pro- *
28 //* cesses (ion,pair,bremss) have to be computed *
29 //* mxhttr = maximum number of (hit) target nucleons for a *
30 //* given collision generation *
31 //* icomax = maximum number of materials for compounds (equal *
32 //* to the sum of the number of materials for every *
34 //* ichmax = maximum number of harmonic oscillator levels for *
35 //* compounds (equal to the sum of the number of har- *
36 //* monic oscillator levels for every compound ) *
37 //* nstbis = number of stable isotopes recorded in common iso- *
39 //* mxpabl = number of resonances inside hadrin common blocks *
40 //* idmaxp = number of particles/resonances defined in common *
42 //* idmxdc = number of particles/resonances decay channels *
43 //* defined in common decayc *
44 //* ihypmx = maximum number of hyperons in a hypernucleus *
45 //* mkbmx1 = dimension for kwb real spare array in fluka stack *
46 //* mkbmx2 = dimension for kwb int. spare array in fluka stack *
48 //*----------------------------------------------------------------------*
50 const Int_t mxxrgn = 10000;
51 const Int_t mxxmdf = 210;
52 const Int_t mxxmde = 202;
53 const Int_t mfstck = 2500;
54 const Int_t mestck = 100;
55 const Int_t mostck = 2000;
56 const Int_t mxprsn = 100;
57 const Int_t mxpdpm = 800;
58 const Int_t mxoutu = 50;
59 const Int_t nallwp = 64;
60 const Int_t nelemx = 80;
61 const Int_t mpdpdx = 18;
62 const Int_t mxhttr = 20;
63 const Int_t icomax = 700;
64 const Int_t ichmax = icomax+mxxmdf;
65 const Int_t nstbis = 304;
67 //* const Int_t mxpabl = 110;
68 const Int_t mxpabl = 120;
69 const Int_t idmaxp = 450;
70 const Int_t idmxdc = 2000;
71 const Int_t mxmcin = 410;
72 const Int_t ihypmx = 4;
74 //* const Int_t mkbmx1 = 9;
75 //* const Int_t mkbmx2 = 3;
76 const Int_t mkbmx1 = 11;
77 const Int_t mkbmx2 = 11;