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