DPMJET/flukapro/(BLNKDM)

   1 *$ CREATE BLNKDM.ADD
   2 *COPY BLNKDM
   3 *
   4 *=== blnkdm ===========================================================*
   5 *
   6 *======================================================================*
   7 *                                                                      *
   8 *   Include file Blnkdm :                                              *
   9 *                                                                      *
  10 *   Created  on  3 september 1989      by       Alfredo Ferrari        *
  11 *                                                 INFN, Milan          *
  12 *                                                                      *
  13 *   Last change   on   19-aug-00       by       Alfredo Ferrari        *
  14 *                                                                      *
  15 *     Blnkdm: this is dummy version of the blank common for the Vax    *
  16 *             version of Fluka. It is included in most routines to     *
  17 *             avoid to compile them again if the common dimension have *
  18 *             been changed!!                                           *
  19 *                                                                      *
  20 *     W A R N I N G !!!! check also blnkcm module for any change!!!    *
  21 *                                                                      *
  22 *                                                                      *
  23 *     Addrcm: this common contains all useful addresses for the blank  *
  24 *             common  (in real*4 or i*4 numeration!!!!!!!!!!!!!!!!)    *
  25 *                                                                      *
  26 *             Mblnmx = blank common dimension in i*4/real*4 units      *
  27 *                                                                      *
  28 *             Kblnkl = Last memory location used in the blank common   *
  29 *                                                                      *
  30 *             Kgmbgn = Beginning of geometry data                      *
  31 *                                                                      *
  32 *             Kgmlst = Last memory location for the geometry data      *
  33 *                                                                      *
  34 *             Kcmbgn = Beginning of the region dependent Comsco energy *
  35 *                      and stars accumulation arrays                   *
  36 *                      (note this address if for zero index!!)         *
  37 *                                                                      *
  38 *             Kcmlst = Last memory location of the region dependent    *
  39 *                      Comsco energy and stars accumulation arrays     *
  40 *                                                                      *
  41 *             Kisbgn = Beginning of isotope data tabulations           *
  42 *                                                                      *
  43 *             Kislst = Last memory location of isotope data tabulations*
  44 *                                                                      *
  45 *             Kdtbgn = Beginning of detector data                      *
  46 *                                                                      *
  47 *             Kdtlst = Last memory location for the detector data      *
  48 *                                                                      *
  49 *             Kubbgn = Beginning of user defined binning storage       *
  50 *                                                                      *
  51 *             Kublst = Last memory location for user defined binnings  *
  52 *                                                                      *
  53 *             Kuxbgn = Beginning of user defined bdrx storage          *
  54 *                                                                      *
  55 *             Kuxlst = Last memory location for user defined bdrx      *
  56 *                                                                      *
  57 *             Ktcbgn = Beginning of user defined track-length and/or   *
  58 *                      collision estimators                            *
  59 *                                                                      *
  60 *             Ktclst = Last memory location for user defined track-    *
  61 *                      length and/or collision density estimators      *
  62 *                                                                      *
  63 *             Krnbgn = Beginning of user defined residual nuclei sco-  *
  64 *                      ring                                            *
  65 *                      (note this address is for zero index!!)         *
  66 *                                                                      *
  67 *             Krnlst = Last memory location for user defined residual  *
  68 *                      nuclei scoring                                  *
  69 *                                                                      *
  70 *             Kylbgn = Beginning of user defined yield estimator       *
  71 *                      (note this address is for zero index!!)         *
  72 *                                                                      *
  73 *             Kyllst = Last memory location for user defined yield     *
  74 *                      estimators                                      *
  75 *                                                                      *
  76 *             Kxsbgn = Beginning of cross section storage              *
  77 *                                                                      *
  78 *             Kxslst = Last memory location for cross section storage  *
  79 *                                                                      *
  80 *             Kihbgn = Beginning of region importance storage          *
  81 *                      for high energy particles                       *
  82 *                      (note this address is for zero index!!)         *
  83 *                                                                      *
  84 *             Kihlst = Last memory location for region importances     *
  85 *                      for high energy particles                       *
  86 *                                                                      *
  87 *             Kinbgn = Beginning of region importance storage          *
  88 *                      for low energy neutrons                         *
  89 *                      (note this address is for zero index!!)         *
  90 *                                                                      *
  91 *             Kinlst = Last memory location for region importances     *
  92 *                      for low energy neutrons                         *
  93 *                                                                      *
  94 *             Kiebgn = Beginning of region importance storage          *
  95 *                      for em cascade particles                        *
  96 *                      (note this address is for zero index!!)         *
  97 *                                                                      *
  98 *             Kielst = Last memory location for region importances     *
  99 *                      for em cascade particles                        *
 100 *                                                                      *
 101 *             Ketbgn = Beginning of exp. transf. parameters            *
 102 *                      (note this address is for zero index!!)         *
 103 *                                                                      *
 104 *             Ketlst = Last memory location for exp. transf. parameters*
 105 *                                                                      *
 106 *             Krrbgn = Beginning of region RR storage                  *
 107 *                      (note this address is for zero index!!)         *
 108 *                                                                      *
 109 *             Krrlst = Last memory location for region RR storage      *
 110 *                                                                      *
 111 *             Kglbgn = Beginning of the region dependent non-analog    *
 112 *                      absorption group limit storage                  *
 113 *                      (note this address is for zero index!!)         *
 114 *                                                                      *
 115 *             Kgllst = Last memory location of the region dependent    *
 116 *                      non-analog absorption group limits              *
 117 *                                                                      *
 118 *             Knabgn = Beginning of the region dependent non-analog    *
 119 *                      absorption factor storage                       *
 120 *                      (note this address is for zero index!!)         *
 121 *                                                                      *
 122 *             Knalst = Last memory location of the region dependent    *
 123 *                      non-analog absorption factors                   *
 124 *                                                                      *
 125 *             Kgdbgn = Beginning of the region dependent biased down-  *
 126 *                      scattering group limit storage                  *
 127 *                      (note this address is for zero index!!)         *
 128 *                                                                      *
 129 *             Kgdlst = Last memory location of the region dependent    *
 130 *                      biased downscattering group limits              *
 131 *                                                                      *
 132 *             Kdwbgn = Beginning of the region dependent biased down-  *
 133 *                      scattering factor storage                       *
 134 *                      (note this address is for zero index!!)         *
 135 *                                                                      *
 136 *             Kdwlst = Last memory location of the region dependent    *
 137 *                      biased downscattering factors                   *
 138 *                                                                      *
 139 *             Kgcbgn = Beginning of the region dependent group cut-off *
 140 *                      storage                                         *
 141 *                      (note this address is for zero index!!)         *
 142 *                                                                      *
 143 *             Kgclst = Last memory location of the region dependent    *
 144 *                      group cut-off's                                 *
 145 *                                                                      *
 146 *             Kwlbgn = Beginning of the region dependent weight window *
 147 *                      lower bound                                     *
 148 *                      (note this address is for zero index!!)         *
 149 *                                                                      *
 150 *             Kwllst = Last memory location of the region dependent    *
 151 *                      weight window lower bound                       *
 152 *                                                                      *
 153 *             Kwhbgn = Beginning of the region dependent weight window *
 154 *                      higher bound                                    *
 155 *                      (note this address is for zero index!!)         *
 156 *                                                                      *
 157 *             Kwhlst = Last memory location of the region dependent    *
 158 *                      weight window higher bound                      *
 159 *                                                                      *
 160 *             Kwmbgn = Beginning of the region dependent weight window *
 161 *                      threshold multiplication factor                 *
 162 *                      (note this address is for zero index!!)         *
 163 *                                                                      *
 164 *             Kwmlst = Last memory location of the region dependent    *
 165 *                      weight window threshold multiplication factor   *
 166 *                                                                      *
 167 *             Kwsbgn = Beginning of the region dependent weight window *
 168 *                      shape profile index for low energy neutrons     *
 169 *                      (note this address is for zero index!!)         *
 170 *                                                                      *
 171 *             Kwslst = Last memory location of the region dependent    *
 172 *                      shape profile index for low energy neutrons     *
 173 *                                                                      *
 174 *             Kndbgn = Beginning of nuclear data tabulations required  *
 175 *                      by the preequilibrium model                     *
 176 *                                                                      *
 177 *             Kndlst = Last memory location of nuclear data storage    *
 178 *                                                                      *
 179 *             Kdpbgn = Beginning of the dp/dx tabulation storage       *
 180 *                      (note this address is for zero index!!)         *
 181 *                                                                      *
 182 *             Kdplst = Last memory location of dp/dx tabulations       *
 183 *                                                                      *
 184 *             Krgbgn = Beginning of the range tabulation storage       *
 185 *                      (note this address is for zero index!!)         *
 186 *                                                                      *
 187 *             Krglst = Last memory location of range tabulations       *
 188 *                                                                      *
 189 *             Ksgbgn = Beginning of the cross section storage          *
 190 *                      (note this address is for zero index!!)         *
 191 *                                                                      *
 192 *             Ksglst = Last memory location of cross section           *
 193 *                      tabulations                                     *
 194 *                                                                      *
 195 *             Kbrbgn = Beginning of the brem. (e+,e-) storage          *
 196 *                      (note this address is for zero index!!)         *
 197 *                                                                      *
 198 *             Kbrlst = Last memory location of the brem. (e+,e-)       *
 199 *                      storage                                         *
 200 *                                                                      *
 201 *             Kfybgn = Beginning of the fission yield storage          *
 202 *                      (note this address is for zero index!!)         *
 203 *                                                                      *
 204 *             Kfylst = Last memory location of the fission yield       *
 205 *                      storage                                         *
 206 *                                                                      *
 207 *             Kpwbgn = Beginning of the neutron pointwise cross section*
 208 *                      storage (note this address is for zero index!!) *
 209 *                                                                      *
 210 *             Kpwlst = Last memory location of the neutron pointwise   *
 211 *                      cross section storage                           *
 212 *                                                                      *
 213 *             Kgrbgn = Beginning of the GDR cross section storage      *
 214 *                      (note this address is for zero index!!)         *
 215 *                                                                      *
 216 *             Kgrlst = Last memory location of the GDR cross section   *
 217 *                      storage                                         *
 218 *                                                                      *
 219 *             Ktmbgn = Beginning of the temporary storage              *
 220 *                      (note this address is for zero index!!)         *
 221 *                                                                      *
 222 *       W A R N I N G the blank common is initialized to 0 as a I*4    *
 223 *                       array!!!!!!!!!!!!!                             *
 224 *                                                                      *
 225 *----------------------------------------------------------------------*
 226 *
 227       DIMENSION GMSTOR ( 2 ), BRMBRR ( 2 ), BRMEXP ( 2 ), BRMSIG ( 2 ),
 228      &          SIGGTT ( 2 ), SIGGDR ( 2 ), COMSCO ( 2 ), LBSTOR ( 2 )
 229       REAL SIGGTT, SIGGDR
 230       LOGICAL LBSTOR
 231       COMMON   NSTOR  ( 2 )
 232       COMMON / ADDRCM / MBLNMX, KBLNKL, KGMBGN, KGMLST, KCMBGN, KCMLST,
 233      &                  KISBGN, KISLST, KDTBGN, KDTLST, KUBBGN, KUBLST,
 234      &                  KUXBGN, KUXLST, KTCBGN, KTCLST, KRNBGN, KRNLST,
 235      &                  KYLBGN, KYLLST, KXSBGN, KXSLST, KIHBGN, KIHLST,
 236      &                  KINBGN, KINLST, KIEBGN, KIELST, KETBGN, KETLST,
 237      &                  KRRBGN, KRRLST, KGLBGN, KGLLST, KNABGN, KNALST,
 238      &                  KGDBGN, KGDLST, KDWBGN, KDWLST, KGCBGN, KGCLST,
 239      &                  KWLBGN, KWLLST, KWHBGN, KWHLST, KWMBGN, KWMLST,
 240      &                  KWSBGN, KWSLST, KNDBGN, KNDLST, KDPBGN, KDPLST,
 241      &                  KRGBGN, KRGLST, KSGBGN, KSGLST, KBRBGN, KBRLST,
 242      &                  KFYBGN, KFYLST, KPWBGN, KPWLST, KGRBGN, KGRLST,
 243      &                  KTMBGN
 244
 245       EQUIVALENCE ( NSTOR (1), GMSTOR (1) )
 246       EQUIVALENCE ( NSTOR (1), BRMBRR (1) )
 247       EQUIVALENCE ( NSTOR (1), BRMEXP (1) )
 248       EQUIVALENCE ( NSTOR (1), BRMSIG (1) )
 249       EQUIVALENCE ( NSTOR (1), COMSCO (1) )
 250       EQUIVALENCE ( NSTOR (1), SIGGTT (1) )
 251       EQUIVALENCE ( NSTOR (1), SIGGDR (1) )
 252       EQUIVALENCE ( NSTOR (1), LBSTOR (1) )
 253