]>
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" { | |
7 | //*$ create dimpar.add | |
8 | //*copy dimpar | |
9 | //* * | |
10 | //*=== dimpar ===========================================================* | |
11 | //* * | |
12 | //*----------------------------------------------------------------------* | |
13 | //* * | |
14 | //* dimpar: included in any routine * | |
15 | //* * | |
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 * | |
5929ad29 | 24 | //* Mxpscs = secondary stack dimension overall * |
b9d0a01d | 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 * | |
34 | //* compound ) * | |
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- * | |
39 | //* top * | |
40 | //* mxpabl = number of resonances inside hadrin common blocks * | |
41 | //* idmaxp = number of particles/resonances defined in common * | |
42 | //* part * | |
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 * | |
48 | //* * | |
49 | //*----------------------------------------------------------------------* | |
50 | //* * | |
51 | const Int_t mxxrgn = 10000; | |
5929ad29 | 52 | const Int_t mxxmdf = 510; |
53 | const Int_t mxxmde = 502; | |
2f0f2214 | 54 | const Int_t mfstck = 5500; |
b9d0a01d | 55 | const Int_t mestck = 100; |
56 | const Int_t mostck = 2000; | |
57 | const Int_t mxprsn = 100; | |
58 | const Int_t mxpdpm = 800; | |
2f0f2214 | 59 | const Int_t mxpscs = 3999; |
b9d0a01d | 60 | const Int_t mxoutu = 50; |
61 | const Int_t nallwp = 64; | |
62 | const Int_t nelemx = 80; | |
63 | const Int_t mpdpdx = 18; | |
d08bd346 | 64 | const Int_t mxhttr = 260; |
b9d0a01d | 65 | const Int_t icomax = 700; |
66 | const Int_t ichmax = icomax+mxxmdf; | |
67 | const Int_t nstbis = 304; | |
68 | //* till 3-aug-99: | |
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; | |
75 | //* till 19-jul-2000: | |
76 | //* const Int_t mkbmx1 = 9; | |
77 | //* const Int_t mkbmx2 = 3; | |
78 | const Int_t mkbmx1 = 11; | |
79 | const Int_t mkbmx2 = 11; | |
80 | } | |
81 | ||
82 | #endif |