DPMJET/flukapro/(BLNTMP)

   1 *$ CREATE BLNTMP.ADD
   2 *COPY BLNTMP
   3 *                                                                      *
   4 *=== blntmp ===========================================================*
   5 *                                                                      *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *      Blntmp: created on 9 july 1990 by Alfredo Ferrari               *
   9 *                                                                      *
  10 *      included in :                                                   *
  11 *                    Blnset                                            *
  12 *                    Fluka                                             *
  13 *                                                                      *
  14 *   The following are all temporary locations in I*4 addresses !!      *
  15 *                                                                      *
  16 *             Kihbtm = Beginning of region importance storage          *
  17 *                      for high energy particles                       *
  18 *                      (note this address if for zero index!!)         *
  19 *                                                                      *
  20 *             Kinbtm = Beginning of region importance storage          *
  21 *                      for low energy neutrons                         *
  22 *                      (note this address if for zero index!!)         *
  23 *                                                                      *
  24 *             Kiebtm = Beginning of region importance storage          *
  25 *                      for em cascade particles                        *
  26 *                      (note this address if for zero index!!)         *
  27 *                                                                      *
  28 *             Krrbtm = Beginning of region dependent inelastic inte-   *
  29 *                      raction RR/Splitting fator storage              *
  30 *                      (note this address if for zero index!!)         *
  31 *                                                                      *
  32 *             Kglbtm = Beginning of the region dependent non-analog    *
  33 *                      absorption group limit storage                  *
  34 *                      (note this address if for zero index!!)         *
  35 *                                                                      *
  36 *             Knabtm = Beginning of the region dependent non-analog    *
  37 *                      absorption factor storage                       *
  38 *                      (note this address if for zero index!!)         *
  39 *                                                                      *
  40 *             Kgcbtm = Beginning of the region dependent group cut-off *
  41 *                      storage                                         *
  42 *                      (note this address if for zero index!!)         *
  43 *                                                                      *
  44 *             Kgdwtm = Beginning of the region dependent biased        *
  45 *                      downscattering group limit storage              *
  46 *                      (note this address if for zero index!!)         *
  47 *                                                                      *
  48 *             Kbdwtm = Beginning of the region dependent biased        *
  49 *                      downscattering factor storage                   *
  50 *                      (note this address if for zero index!!)         *
  51 *                                                                      *
  52 *             Kwlotm = Beginning of the region dependent weight window *
  53 *                      lower bound storage                             *
  54 *                      (note this address if for zero index!!)         *
  55 *                                                                      *
  56 *             Kwhitm = Beginning of the region dependent weight window *
  57 *                      higher bound storage                            *
  58 *                      (note this address if for zero index!!)         *
  59 *                                                                      *
  60 *             Kwmutm = Beginning of the region dependent WW threshold  *
  61 *                      multiplicative factor storage                   *
  62 *                      (note this address if for zero index!!)         *
  63 *                                                                      *
  64 *             Kwshtm = Beginning of the region dependent WW shape      *
  65 *                      profile index storage                           *
  66 *                      (note this address if for zero index!!)         *
  67 *                                                                      *
  68 *             Kexttm = Beginning of the region dependent exponential   *
  69 *                      transformation parameter temporary storage      *
  70 *                      (note this address if for zero index!!)         *
  71 *                                                                      *
  72 *             Kstxtm = Beginning of the region dependent maximum step  *
  73 *                      size temporary storage                          *
  74 *                      (note this address if for zero index!!)         *
  75 *                                                                      *
  76 *             Kstntm = Beginning of the region dependent minimum step  *
  77 *                      size temporary storage                          *
  78 *                      (note this address if for zero index!!)         *
  79 *                                                                      *
  80 *             Kecttm = Beginning of the region dependent electron cut  *
  81 *                      off energy temporary storage                    *
  82 *                      (note this address if for zero index!!)         *
  83 *                                                                      *
  84 *             Kpcttm = Beginning of the region dependent photon cut    *
  85 *                      off energy temporary storage                    *
  86 *                      (note this address if for zero index!!)         *
  87 *                                                                      *
  88 *             Klpbtm = Beginning of the region dependent leading par-  *
  89 *                      ticle flag temporary storage                    *
  90 *                      (note this address if for zero index!!)         *
  91 *                                                                      *
  92 *             Nxxrgn = Number of regions for which the temporary sto-  *
  93 *                      rage must be set up                             *
  94 *                                                                      *
  95 *----------------------------------------------------------------------*
  96 *
  97       COMMON / BLNTMP / KIHBTM, KINBTM, KIEBTM, KRRBTM, KGLBTM, KNABTM,
  98      &                  KGCBTM, KGDWTM, KBDWTM, KWLOTM, KWHITM, KWMUTM,
  99      &                  KWSHTM, KEXTTM, KSTXTM, KSTNTM, KECTTM, KPCTTM,
 100      &                  KLPBTM, NXXRGN
 101