/*
 * DO NOT MANUALLY UPDATE THIS FILE.
 * If needed: make cpp_headers
 *
 * fortran2c.py - automatic conversion
 *       flgsco.inc -> flgsco.h
 */

#ifndef __FLGSCO__
#define __FLGSCO__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== 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)                                              *
//                                                                      *
//----------------------------------------------------------------------*
//
extern struct {
	logical	lufflu;
	logical	luffld;
	logical	lufflo;
	logical	lbnflx;
	logical	lbxflx;
	logical	ltrflx;
	logical	lclflx;
	logical	lfluxs;
	logical	lfluxe;
	logical	lumomb;
	logical	lrnstp;
	logical	lniels;
	logical	luniel;
	logical	lrniel;
	logical	lredpa;
	logical	lntchr;
} flgsco_;


#ifdef __cplusplus
}
#endif
#endif