*$ CREATE USRBDX.ADD
*COPY USRBDX
*
*=== usrbdx ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1990-2021      by  Alberto Fasso`, Alfredo Ferrari *
*     All Rights Reserved.                                             *
*                                                                      *
*     Created on  14  May 1990     by         Alfredo Ferrari          *
*                                               Infn - Milan           *
*     (using the bdx scoring of A.Fasso` for Morse as a template)      *
*                                                                      *
*     Module USRBDX:                                                   *
*     A. Ferrari : user defined boundary crossing scoring              *
*                                                                      *
*     Last change on  30-Nov-21    by         Alfredo Ferrari          *
*                                                Private               *
*                                                                      *
*                                                                      *
*     Up to MXUSBX user defined bdrx are allowed                       *
*            lusbdx = logical flag, .true. if at least 1 user defined  *
*                     bdrx is used                                     *
*            nusrbx = number of user defined bdrx used                 *
*            itusbx = type of binning: 1 = linear energy, linear angle *
*                     2 = linear energy, logarithmic angle, -1 = loga- *
*                     rithmic energy, linear angle, -2 = logarithmic   *
*                     energy, logarithmic angle                        *
*            idusbx = distribution to be scored: the usual values are  *
*                     allowed                                          *
*            jdusbx = secondary distribution to be scored: the usual   *
*                     values are allowed                               *
*            nr1usx = first region                                     *
*            nr2usx = second region                                    *
*            ausbdx = area (cm**2) of the detector                     *
*            lwusbx = one way if false, two ways if true               *
*            lfusbx = current if false, fluence if true                *
*            llnusx = no low energy neutron scoring if false, yes if   *
*                     true                                             *
*            lpwcbx = logical flag for applying conversion coefficient *
*                     to low energy neutron explicit charged particle  *
*                     products                                         *
*            lbxpwx = flag for not grouping neutron scoring if True    *
*            titusx = bdrx name                                        *
*            dequsx = bdrx name for dose equivalent conversion         *
*            ipusbx = logical unit to print the results on: formatted  *
*                     if > 0, unformatted if < 0                       *
*            igmusx = maximum low energy neutron group to be scored    *
*            kbusbx = initial location in blank common of the consi-   *
*                     dered bdrx (real*8 address)                      *
*                     I T   I S   F O R  A D D R E S S  OF  1 !!!!!    *
*            nebxbn = number of energy intervals                       *
*            nabxbn = number of angular intervals                      *
*     ebxlow/ebxhgh = minimum and maximum energies                     *
*     abxlow/abxhgh = minimum and maximum angle (steradian)            *
*            debxbn = energy bin width                                 *
*            dabxbn = angular (steradian) bin width                    *
*            kdcyux = flag for radioactive decay scoring (-1=prompt +  *
*                     all radioactive decays, 0=prompt only, i=i_th    *
*                     decay time only)                                 *
*            Lbxekn = flag for scoring in energy/nucleon if True       *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( MXUSBX = 7000 )
      LOGICAL LUSBDX, LFUSBX, LWUSBX, LLNUSX, LPWCBX, LBXEKN, LBXPWX
      CHARACTER*10 TITUSX, DEQUSX
      COMMON /USRBX/  EBXLOW(MXUSBX), EBXHGH(MXUSBX), ABXLOW(MXUSBX),
     &                ABXHGH(MXUSBX), DEBXBN(MXUSBX), DABXBN(MXUSBX),
     &                AUSBDX(MXUSBX),
     &                NEBXBN(MXUSBX), NABXBN(MXUSBX), NR1USX(MXUSBX),
     &                NR2USX(MXUSBX), ITUSBX(MXUSBX), IDUSBX(MXUSBX),
     &                JDUSBX(MXUSBX), KBUSBX(MXUSBX), KDCYUX(MXUSBX),
     &                IPUSBX(MXUSBX), IGMUSX(MXUSBX), LFUSBX(MXUSBX),
     &                LWUSBX(MXUSBX), LLNUSX(MXUSBX), LPWCBX(MXUSBX),
     &                LBXPWX(MXUSBX), NUSRBX, LUSBDX, LBXEKN
      COMMON /USXCH/  TITUSX(MXUSBX), DEQUSX(MXUSBX)
      SAVE / USRBX /
      SAVE / USXCH /