DPMJET/flukapro/(FLUXES)

   1 *$ CREATE FLUXES.ADD
   2 *COPY FLUXES
   3 *
   4 *=== Fluxes ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Fluxes version for FLUKA9x: it is now almost useless since all   *
   9 *     fluxesm... scoring does not work inside FLUKA9x and has been     *
  10 *     removed                                                          *
  11 *                                                                      *
  12 *     description of the common block(s) and variable(s)               *
  13 *                                                                      *
  14 *     Lfluw3 = if Lfluw3.eq.true fluxes are multiplied by the Fluscw   *
  15 *              function when scored                                    *
  16 *     Lfluwd = if Lfluwd.eq.true a call is generated to the user  sub- *
  17 *              routine fldscp when scoring distributed along the track *
  18 *              fluxes for possible position changes. This is done befo-*
  19 *              re any user requested rotation                          *
  20 *     Lbnflx = if Lbnflx.eq.true fluxes at boundaries have to be       *
  21 *              scored or by Iflux.gt.2 or by boundary crossing         *
  22 *              estimators both usual or user defined                   *
  23 *              (A. Ferrari 1-July-89)                                  *
  24 *     Lbxflx = if Lbxflx.eq.true fluxes at boundaries have to be       *
  25 *              scored by boundary crossing                             *
  26 *              estimators both usual or user defined                   *
  27 *              (A. Ferrari 1-July-89)                                  *
  28 *     Ltrflx = if Ltrflx.eq.true track length has to be                *
  29 *              scored or by user defined tracklength or by usual       *
  30 *              estimators (A. Ferrari 17-May-90)                       *
  31 *     Lclflx = if Lclflx.eq.true collision density has to be           *
  32 *              scored or by user defined or by usual                   *
  33 *              estimators (A. Ferrari 17-May-90)                       *
  34 *     Lfluxs = if Lfluxs.eq.true  fluxes at boundaries or tracklength  *
  35 *              or collision density have to be scored                  *
  36 *              (A. Ferrari 17-May-90)                                  *
  37 *----------------------------------------------------------------------*
  38 *
  39       LOGICAL LFLUW3, LFLUWD, LBNFLX, LBXFLX, LTRFLX, LCLFLX, LFLUXS
  40       COMMON / FLUXES / LFLUW3, LFLUWD, LBNFLX, LBXFLX, LTRFLX, LCLFLX,
  41      &                  LFLUXS
  42