DPMJET/flukapro/(USRSNC)

   1 *$ CREATE USRSNC.ADD
   2 *COPY USRSNC
   3 *
   4 *=== usrsnc ==========================================================*
   5 *
   6 *---------------------------------------------------------------------*
   7 *     Module usrsnc:                                                  *
   8 *     A. Ferrari : user defined residual nuclei scoring               *
   9 *                  estimators                                         *
  10 *          Last change A. Ferrari 22-jul-1994                         *
  11 *                                                                     *
  12 *                                                                     *
  13 *     Up to MXRSNC user defined track or coll are allowed             *
  14 *            lursnc = logical flag, .true. if at least 1 user defined *
  15 *                     residual nuclei scoring is activated            *
  16 *            nursnc = number of residual nuclei scoring               *
  17 *            izrhgh = maximum Z of the scoring (minimum Z: 1)         *
  18 *            imrhgh = maximum M=N-Z-NMZ_min of the scoring            *
  19 *                    (minimum M: 1), please note:                     *
  20 *                     N-Z = M + NMZ_min, N = M + Z + NMZ_min          *
  21 *            itursn = type of binning: 1 = spallation products,       *
  22 *                     2 = low energy neutrons products,               *
  23 *                     3 = all products                                *
  24 *            nrursn = region                                          *
  25 *            vursnc = volume (cm**3) of the detector                  *
  26 *            tiursn = scoring name                                    *
  27 *            ipursn = logical unit to print the results on: formatted *
  28 *                     if > 0, unformatted if < 0                      *
  29 *            kbursn = initial location in blank common of the consi-  *
  30 *                     dered residual nuclei scoring (real*8 address)  *
  31 *                     I T   I S   F O R  A D D R E S S  OF  0 !!!!!   *
  32 *                                                                     *
  33 *---------------------------------------------------------------------*
  34 *
  35       PARAMETER ( MXRSNC = 400 )
  36       PARAMETER ( NMZMIN =  -5 )
  37       LOGICAL LURSNC
  38       CHARACTER*10 TIURSN
  39       COMMON /USRSNC/  VURSNC(MXRSNC), IZRHGH(MXRSNC), IMRHGH(MXRSNC),
  40      &                 NRURSN(MXRSNC), ITURSN(MXRSNC), KBURSN(MXRSNC),
  41      &                 IPURSN(MXRSNC), NURSNC, LURSNC
  42       COMMON /USRSCH/  TIURSN(MXRSNC)
  43