*
*=== Flgsco ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     FLaGs for SCOring for FLUKA20xy:                                 *
*                                                                      *
*     Lufflu = the User Function Fluscw is invoked when scoring fluxes *
*              with any of the USRBDX,USRTRACK,USRCOLL,USRYIELD,USRBIN *
*              options                                                 *
*     Luffld = if Luffld is True a call is generated to the user  sub- *
*              routine fldscp when scoring distributed along the track *
*              fluxes for possible position changes. This is done befo-*
*              re any user requested rotation                          *
*     Lufflo = if Lufflo is True calls to the user subroutines Fluscw  *
*              and possibly Fldscp are performed AFTER checking it is  *
*              the proper boundary crossing/track length/particle id   *
*              etc, and not at every boundary/crossing/track length/   *
*              particle id                                             *
*     Lbnflx = if Lbnflx is True fluxes at boundaries have to be       *
*              scored or by Iflux.gt.2 or by boundary crossing         *
*              estimators both usual or user defined                   *
*              (A. Ferrari 1-July-89)                                  *
*     Lbxflx = if Lbxflx is True fluxes at boundaries have to be       *
*              scored by boundary crossing                             *
*              estimators both usual or user defined                   *
*              (A. Ferrari 1-July-89)                                  *
*     Ltrflx = if Ltrflx is true track length has to be                *
*              scored or by user defined tracklength or by usual       *
*              estimators (A. Ferrari 17-May-90)                       *
*     Lclflx = if Lclflx.eq.true collision density has to be           *
*              scored or by user defined or by usual                   *
*              estimators (A. Ferrari 17-May-90)                       *
*     Lfluxs = if Lfluxs is True  fluxes at boundaries or tracklength  *
*              or collision density have to be scored                  *
*              (A. Ferrari 17-May-90)                                  *
*     Lfluxe = if Lfluxe is True  fluxes at boundaries or tracklength  *
*              or "old style" hadron electro/photoproduction have to be*
*              scored                                                  *
*     Lumomb = if Lumomb is True  momentum transfer has to be scored   *
*     Lrnstp = if Lrnstp is True  residual nuclei have to be scored or *
*              radioactive products must be produced                   *
*     Lntchr = if Lntchr is True  net charge depositions have to be    *
*              scored                                                  *
*     Lniels = if Lniels is True  Non Ionizing Energy Losses have to   *
*              be scored (it could be unrestricted NIEL, restricted    *
*              NIEL, DPA)                                              *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LUFFLU, LUFFLD, LUFFLO, LBNFLX, LBXFLX, LTRFLX, LCLFLX,
     &        LFLUXS, LFLUXE, LUMOMB, LRNSTP, LNIELS, LUNIEL, LRNIEL,
     &        LREDPA, LNTCHR
      COMMON / FLGSCO / LUFFLU, LUFFLD, LUFFLO, LBNFLX, LBXFLX, LTRFLX,
     &                  LCLFLX, LFLUXS, LFLUXE, LUMOMB, LRNSTP, LNIELS,
     &                  LUNIEL, LRNIEL, LREDPA, LNTCHR
      SAVE / FLGSCO /