*$ CREATE BLNTMP.ADD
*COPY BLNTMP
*                                                                      *
*=== blntmp ===========================================================*
*                                                                      *
*----------------------------------------------------------------------*
*                                                                      *
*      Blntmp: created on 9 july 1990 by Alfredo Ferrari               *
*                                                                      *
*      included in :                                                   *
*                    Blnset                                            *
*                    Fluka                                             *
*                                                                      *
*   The following are all temporary locations in I*4 addresses !!      *
*                                                                      *
*             Kihbtm = Beginning of region importance storage          *
*                      for high energy particles                       *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kinbtm = Beginning of region importance storage          *
*                      for low energy neutrons                         *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kiebtm = Beginning of region importance storage          *
*                      for em cascade particles                        *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Krrbtm = Beginning of region dependent inelastic inte-   *
*                      raction RR/Splitting fator storage              *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kglbtm = Beginning of the region dependent non-analog    *
*                      absorption group limit storage                  *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Knabtm = Beginning of the region dependent non-analog    *
*                      absorption factor storage                       *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kgcbtm = Beginning of the region dependent group cut-off *
*                      storage                                         *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kgdwtm = Beginning of the region dependent biased        *
*                      downscattering group limit storage              *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kbdwtm = Beginning of the region dependent biased        *
*                      downscattering factor storage                   *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kwlotm = Beginning of the region dependent weight window *
*                      lower bound storage                             *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kwhitm = Beginning of the region dependent weight window *
*                      higher bound storage                            *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kwmutm = Beginning of the region dependent WW threshold  *
*                      multiplicative factor storage                   *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kwshtm = Beginning of the region dependent WW shape      *
*                      profile index storage                           *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kexttm = Beginning of the region dependent exponential   *
*                      transformation parameter temporary storage      *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kstxtm = Beginning of the region dependent maximum step  *
*                      size temporary storage                          *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kstntm = Beginning of the region dependent minimum step  *
*                      size temporary storage                          *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kecttm = Beginning of the region dependent electron cut  *
*                      off energy temporary storage                    *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Kpcttm = Beginning of the region dependent photon cut    *
*                      off energy temporary storage                    *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Klpbtm = Beginning of the region dependent leading par-  *
*                      ticle flag temporary storage                    *
*                      (note this address if for zero index!!)         *
*                                                                      *
*             Nxxrgn = Number of regions for which the temporary sto-  *
*                      rage must be set up                             *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / BLNTMP / KIHBTM, KINBTM, KIEBTM, KRRBTM, KGLBTM, KNABTM,
     &                  KGCBTM, KGDWTM, KBDWTM, KWLOTM, KWHITM, KWMUTM,
     &                  KWSHTM, KEXTTM, KSTXTM, KSTNTM, KECTTM, KPCTTM,
     &                  KLPBTM, NXXRGN