]>
Commit | Line | Data |
---|---|---|
b9d0a01d | 1 | #ifndef FDIMPAR_H |
5929ad29 | 2 | #define FDIMPAR_H |
b9d0a01d | 3 | |
4 | #include "cfortran.h" | |
5 | #include "Rtypes.h" | |
6 | extern "C" { | |
b9d0a01d | 7 | //*----------------------------------------------------------------------* |
8 | //* * | |
71dd9297 | 9 | //* DIMPAR: included in any routine * |
b9d0a01d | 10 | //* * |
71dd9297 | 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 * | |
5929ad29 | 19 | //* Mxpscs = secondary stack dimension overall * |
71dd9297 | 20 | //* Mxoutu = maximum number of output units * |
21 | //* Nallwp = number of allowed particles * | |
22 | //* Nelemx = number of maximum allowed elements of a compound * | |
23 | //* or mixture * | |
24 | //* Mpdpdx = number of particle types for which EM dE/dx pro- * | |
b9d0a01d | 25 | //* cesses (ion,pair,bremss) have to be computed * |
71dd9297 | 26 | //* Mxhttr = maximum number of (hit) target nucleons for a * |
b9d0a01d | 27 | //* given collision generation * |
71dd9297 | 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 * | |
34 | //* /mixture) * | |
35 | //* Nstbis = number of stable isotopes recorded in common iso- * | |
b9d0a01d | 36 | //* top * |
71dd9297 | 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 * | |
b9d0a01d | 44 | //* part * |
71dd9297 | 45 | //* Idmxdc = number of particles/resonances decay channels * |
b9d0a01d | 46 | //* defined in common decayc * |
71dd9297 | 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 * | |
380c2ff0 | 50 | //* Mxirrd = maximum number of irradiation sub-intervals * |
51 | //* Mxtrdc = maximum number of decay (cooling) times * | |
52 | //* Nktl = overall dimension parameter for EMF bremsstrahlung * | |
b9d0a01d | 53 | //* * |
71dd9297 | 54 | //*----------------------------------------------------------------------* |
55 | ||
9dcaa1ee | 56 | const Int_t mxxrgn = 20000; |
9ed1543d | 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; | |
71dd9297 | 80 | |
b9d0a01d | 81 | //* till 3-aug-99: |
82 | //* const Int_t mxpabl = 110; | |
9ed1543d | 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; | |
b9d0a01d | 88 | //* till 19-jul-2000: |
89 | //* const Int_t mkbmx1 = 9; | |
90 | //* const Int_t mkbmx2 = 3; | |
9ed1543d | 91 | const Int_t mkbmx1 = 11; |
92 | const Int_t mkbmx2 = 11; | |
c233f1c8 | 93 | const Int_t mxirrd = 500; |
94 | const Int_t mxtrdc = 500; | |
9ed1543d | 95 | const Int_t nktl = 17; |
b9d0a01d | 96 | } |
97 | ||
98 | #endif |