DPMJET/flukapro/(USRBDX)

   1 *$ CREATE USRBDX.ADD
   2 *COPY USRBDX
   3 *
   4 *=== usrbdx ==========================================================*
   5 *
   6 *---------------------------------------------------------------------*
   7 *     Module USRBDX:                                                  *
   8 *     A. Ferrari : user defined boundary crossing scoring             *
   9 *          Last change A. Ferrari 16-may-1990                         *
  10 *                                                                     *
  11 *                                                                     *
  12 *     Up to MXUSBX user defined bdrx are allowed                      *
  13 *            lusbdx = logical flag, .true. if at least 1 user defined *
  14 *                     bdrx is used                                    *
  15 *            nusrbx = number of user defined bdrx used                *
  16 *            itusbx = type of binning: 1 = linear energy, linear angle*
  17 *                     2 = linear energy, logarithmic angle, -1 = loga-*
  18 *                     rithmic energy, linear angle, -2 = logarithmic  *
  19 *                     energy, logarithmic angle                       *
  20 *            idusbx = distribution to be scored: the usual values are *
  21 *                     allowed                                         *
  22 *            nr1usx = first region                                    *
  23 *            nr2usx = second region                                   *
  24 *            ausbdx = area (cm**2) of the detector                    *
  25 *            lwusbx = one way if false, two ways if true              *
  26 *            lfusbx = current if false, fluence if true               *
  27 *            llnusx = no low energy neutron scoring if false, yes if  *
  28 *                     true                                            *
  29 *            titusx = bdrx name                                       *
  30 *            ipusbx = logical unit to print the results on: formatted *
  31 *                     if > 0, unformatted if < 0                      *
  32 *            igmusx = maximum low energy neutron group to be scored   *
  33 *            kbusbx = initial location in blank common of the consi-  *
  34 *                     dered bdrx (real*8 address)                     *
  35 *                     I T   I S   F O R  A D D R E S S  OF  1 !!!!!   *
  36 *            nebxbn = number of energy intervals                      *
  37 *            nabxbn = number of angular intervals                     *
  38 *     ebxlow/ebxhgh = minimum and maximum energies                    *
  39 *     abxlow/abxhgh = minimum and maximum angle (steradian)           *
  40 *            debxbn = energy bin width                                *
  41 *            dabxbn = angular (steradian) bin width                   *
  42 *                                                                     *
  43 *---------------------------------------------------------------------*
  44 *
  45       PARAMETER ( MXUSBX = 1100 )
  46       LOGICAL LUSBDX, LFUSBX, LWUSBX, LLNUSX
  47       CHARACTER*10 TITUSX
  48       COMMON /USRBX/  EBXLOW(MXUSBX), EBXHGH(MXUSBX), ABXLOW(MXUSBX),
  49      &                ABXHGH(MXUSBX), DEBXBN(MXUSBX), DABXBN(MXUSBX),
  50      &                AUSBDX(MXUSBX),
  51      &                NEBXBN(MXUSBX), NABXBN(MXUSBX), NR1USX(MXUSBX),
  52      &                NR2USX(MXUSBX), ITUSBX(MXUSBX), IDUSBX(MXUSBX),
  53      &                KBUSBX(MXUSBX), IPUSBX(MXUSBX), IGMUSX(MXUSBX),
  54      &                LFUSBX(MXUSBX), LWUSBX(MXUSBX), LLNUSX(MXUSBX),
  55      &                NUSRBX, LUSBDX
  56       COMMON /USXCH/  TITUSX(MXUSBX)
  57