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 //* Mxpscs = secondary stack dimension overall *
25 //* mxoutu = maximum number of output units *
26 //* nallwp = number of allowed particles *
27 //* nelemx = number of maximum allowed elements of a compound *
28 //* mpdpdx = number of particle types for which em de/dx pro- *
29 //* cesses (ion,pair,bremss) have to be computed *
30 //* mxhttr = maximum number of (hit) target nucleons for a *
31 //* given collision generation *
32 //* icomax = maximum number of materials for compounds (equal *
33 //* to the sum of the number of materials for every *
35 //* ichmax = maximum number of harmonic oscillator levels for *
36 //* compounds (equal to the sum of the number of har- *
37 //* monic oscillator levels for every compound ) *
38 //* nstbis = number of stable isotopes recorded in common iso- *
40 //* mxpabl = number of resonances inside hadrin common blocks *
41 //* idmaxp = number of particles/resonances defined in common *
43 //* idmxdc = number of particles/resonances decay channels *
44 //* defined in common decayc *
45 //* ihypmx = maximum number of hyperons in a hypernucleus *
46 //* mkbmx1 = dimension for kwb real spare array in fluka stack *
47 //* mkbmx2 = dimension for kwb int. spare array in fluka stack *
49 //*----------------------------------------------------------------------*
51 const Int_t mxxrgn = 10000;
52 const Int_t mxxmdf = 510;
53 const Int_t mxxmde = 502;
54 const Int_t mfstck = 2500;
55 const Int_t mestck = 100;
56 const Int_t mostck = 2000;
57 const Int_t mxprsn = 100;
58 const Int_t mxpdpm = 800;
59 const Int_t mxpscs = 1999;
60 const Int_t mxoutu = 50;
61 const Int_t nallwp = 64;
62 const Int_t nelemx = 80;
63 const Int_t mpdpdx = 18;
64 const Int_t mxhttr = 260;
65 const Int_t icomax = 700;
66 const Int_t ichmax = icomax+mxxmdf;
67 const Int_t nstbis = 304;
69 //* const Int_t mxpabl = 110;
70 const Int_t mxpabl = 120;
71 const Int_t idmaxp = 450;
72 const Int_t idmxdc = 2000;
73 const Int_t mxmcin = 410;
74 const Int_t ihypmx = 4;
76 //* const Int_t mkbmx1 = 9;
77 //* const Int_t mkbmx2 = 3;
78 const Int_t mkbmx1 = 11;
79 const Int_t mkbmx2 = 11;