DPMJET/flukapro/(USRTRC)

   1 *$ CREATE USRTRC.ADD
   2 *COPY USRTRC
   3 *
   4 *=== usrtrc ==========================================================*
   5 *
   6 *---------------------------------------------------------------------*
   7 *     Module usrtrc:                                                  *
   8 *     A. Ferrari : user defined track-length & collision density      *
   9 *                  estimators                                         *
  10 *          Last change A. Ferrari 16-jan-1991                         *
  11 *                                                                     *
  12 *                                                                     *
  13 *     Up to MXUSTC user defined track or coll are allowed             *
  14 *            lusrtc = logical flag, .true. if at least 1 user defined *
  15 *                     track or coll is used                           *
  16 *            lustrk = logical flag, .true. if at least 1 user defined *
  17 *                     track is used                                   *
  18 *            luscll = logical flag, .true. if at least 1 user defined *
  19 *                     coll is used                                    *
  20 *            nusrtc = number of user defined track & coll used        *
  21 *            nustrk = number of user defined track used               *
  22 *            nuscll = number of user defined coll used                *
  23 *            iustrk = list of track-length estimators                 *
  24 *            iuscll = list of collision density track estimators      *
  25 *                     2 = linear energy, coll, -1 = logarithmic ener- *
  26 *                         gy, track, -2 = logarithmic energy, coll    *
  27 *            itustc = type of binning: 1 = linear energy, track       *
  28 *                     2 = linear energy, coll, -1 = logarithmic ener- *
  29 *                         gy, track, -2 = logarithmic energy, coll    *
  30 *            idustc = distribution to be scored: the usual values are *
  31 *                     allowed                                         *
  32 *            nrustc = region                                          *
  33 *            vusrtc = volume (cm**3) of the detector                  *
  34 *            llnutc = no low energy neutron scoring if false, yes if  *
  35 *                     true                                            *
  36 *            titutc = track or coll name                              *
  37 *            ipustc = logical unit to print the results on: formatted *
  38 *                     if > 0, unformatted if < 0                      *
  39 *            igmutc = maximum low energy neutron group to be scored   *
  40 *            kbustc = initial location in blank common of the consi-  *
  41 *                     dered track or coll (real*8 address)            *
  42 *                     I T   I S   F O R  A D D R E S S  OF  1 !!!!!   *
  43 *            netcbn = number of energy intervals                      *
  44 *     etclow/etchgh = minimum and maximum energies                    *
  45 *            detcbn = energy bin width                                *
  46 *                                                                     *
  47 *---------------------------------------------------------------------*
  48 *
  49       PARAMETER ( MXUSTC = 400 )
  50       LOGICAL LUSRTC, LUSTRK, LUSCLL, LLNUTC
  51       CHARACTER*10 TITUTC
  52       COMMON /USRTC/  ETCLOW(MXUSTC), ETCHGH(MXUSTC), DETCBN(MXUSTC),
  53      &                VUSRTC(MXUSTC),
  54      &                IUSTRK(MXUSTC), IUSCLL(MXUSTC), NETCBN(MXUSTC),
  55      &                NRUSTC(MXUSTC), ITUSTC(MXUSTC), IDUSTC(MXUSTC),
  56      &                KBUSTC(MXUSTC), IPUSTC(MXUSTC), IGMUTC(MXUSTC),
  57      &                LLNUTC(MXUSTC), NUSRTC, NUSTRK, NUSCLL, LUSRTC,
  58      &                LUSTRK, LUSCLL
  59       COMMON /USTCH/  TITUTC(MXUSTC)
  60