Updated buspatch and DDL numbers for station 345 and started buspatch at 1
[u/mrichter/AliRoot.git] / TFluka / Fdimpar.h
1 #ifndef FDIMPAR_H
2 #define FDIMPAR_H
3
4 #include "cfortran.h"
5 #include "Rtypes.h"
6 extern "C" {
7 //*----------------------------------------------------------------------*
8 //*                                                                      *
9 //*      DIMPAR: included in any routine                                 *
10 //*                                                                      *
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   *
23 //*                   or mixture                                         *
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   *
34 //*                   /mixture)                                          *
35 //*          Nstbis = number of stable isotopes recorded in common iso-  *
36 //*                   top                                                *
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   *
44 //*                   part                                               *
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 *
53 //*                                                                      *
54 //*----------------------------------------------------------------------*   
55
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;
80     
81 //* till 3-aug-99:
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;
88 //* till 19-jul-2000:
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;
96 }
97
98 #endif