TFluka/Fdimpar.h

   1 #ifndef FDIMPAR_H
   2 #define FDIMPAR_H
   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       *
  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    *
  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;
  52 const Int_t mxxmdf = 510;
  53 const Int_t mxxmde = 502;
  54 const Int_t mfstck = 5500;
  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 = 3999;
  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;
  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