4 *=== Fluxes ===========================================================*
6 *----------------------------------------------------------------------*
8 * Fluxes version for FLUKA9x: it is now almost useless since all *
9 * fluxesm... scoring does not work inside FLUKA9x and has been *
12 * description of the common block(s) and variable(s) *
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 *----------------------------------------------------------------------*
39 LOGICAL LFLUW3, LFLUWD, LBNFLX, LBXFLX, LTRFLX, LCLFLX, LFLUXS
40 COMMON / FLUXES / LFLUW3, LFLUWD, LBNFLX, LBXFLX, LTRFLX, LCLFLX,