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

#ifndef __NUCFLG__
#define __NUCFLG__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== nucflg ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     NUClear FLaGs common:                                            *
//                                                                      *
//     !!! Formerly included in NUCGEO: split out on 27sep02 !!!        *
//                                                                      *
//     Created on  20  July  1991   by    Alfredo Ferrari & Paola Sala  *
//                                                   Infn - Milan       *
//                                                                      *
//     Description of the variables (NUCFLG):                           *
//                                                                      *
//                        Aexcmx = A parameter for the maximum exciton  *
//                                 cutoff in preequilibrium             *
//                                 (Nex_max = A + B A_res^1/3)          *
//                        Bexcmx = B parameter for the maximum exciton  *
//                                 cutoff in preequilibrium             *
//                        Eexcmx = E (exponential) parameter for the    *
//                                 maximum exciton cutoff in preequi-   *
//                                 librium                              *
//                        Sgmpre = sigma in the exciton cut-off formula *
//                        Dsgpre = derivative of sigma in the exciton   *
//                                 cut-off formula                      *
//                        Tsgpre = excitation scale for sigma in the    *
//                                 exciton cut-off formula              *
//                        Iexctf = maximum exciton cutoff flag in preeq-*
//                                 uilibrium                            *
//                                   Iexctf = i0 + i1 * 100             *
//                                 i0 is the flag selecting the exciton *
//                                 chain cut-off algorithm              *
//                                 i1 > 0: no probabilistic cut-off if  *
//                                         fixed particle exciton from  *
//                                         cascade still available      *
//                                 i1 > 1: no deterministic cut-off if  *
//                                         fixed particle exciton from  *
//                                         cascade still available      *
//                        Iadflg = flag for angular distribution options*
//                                 in preequilibrium                    *
//                        Itaucm = flag for "coherence" length (tautau) *
//                                 options in preequilibrium            *
//                        Igsflg = flag for g (single particle level    *
//                                 density parameter option) in preequi-*
//                                 librium                              *
//                                   Igsflg = i0 + i1 * 10              *
//                                 i0 is the flag for the single parti- *
//                                 cle level density approach           *
//                                 i1 > 0: nucleon independent g parame-*
//                                         ters                         *
//                                 i1 = 0: nucleon dependent g parame-  *
//                                         ters                         *
//                        Ialflg = flag for a (level density parameter  *
//                                 option) in preequilibrium            *
//                        Icbflg = flag for Coulomb/centrifugal barriers*
//                                 for preequilibrium                   *
//                                    i0 + 100 * i1                     *
//                                    i0 = Jcbflg, i1 = Kcbflg          *
//                                 i0 = 0 -> naive centrif. barrier,    *
//                                    = 1 -> less naive centrif. barrier*
//                                 i1 = 0 -> evap. like Coul barrier    *
//                                    = 1 -> evap. like Coul barrier    *
//                                           with no penetrability      *
//                                    = 2 -> average of sharp and evap. *
//                                           like Coul barrier with no  *
//                                           penetrability              *
//                        Iftflg = flag specifying the option for forma-*
//                                 tion time competition: meaningful    *
//                                 only for Lftcmp=.true.               *
//                                 Iftflg = isign x ( i0 + 100 x i1     *
//                                                     + 10000 x i2     *
//                                                   + 1000000 x i3     *
//                                                 + 100000000 x i4 )   *
//                                          Jftflg = i0                 *
//                                          Kftflg = i1                 *
//                                          Mftflg = i2                 *
//                                          Nftflg = i3                 *
//                                          Niftfl = i4                 *
//                         isign =0,+1: formation time competition app- *
//                                    lied to all interactions          *
//                                -1: formation zone competition applied*
//                                    to primary interactions only      *
//                                (in order to get isign =-1, i0,i1,i2, *
//                                 i3 all 0 set =-100000000)            *
//                            i0 = 0: no account for nucleon correlation*
//                                    distance and antisymmetrization   *
//                                    effects                           *
//                               = 1: interactions within nucleon corre-*
//                                    lation distance or antisymmetriza-*
//                                    tion distance are not allowed     *
//                               = 2: interactions within nucleon corre-*
//                                    lation distance are not allowed,  *
//                                    no account for antisymmetrization *
//                                    effects                           *
//                               = 3: interactions within antisymmetri- *
//                                    zation distance are not allowed,  *
//                                    no account for nucleon correla-   *
//                                    tions                             *
//                               = 4: no account for nucleon correlation*
//                                    distance and antisymmetrization   *
//                                    effects among Glauber interact-   *
//                                    ions and elastic, charge exchange.*
//                                    Otherwise: full account           *
//                               = 5: no account for nucleon correlation*
//                                    distance and antisymmetrization   *
//                                    effects among Glauber interact-   *
//                                    ions and elastic, charge exchange.*
//                                    Otherwise: interactions within nu-*
//                                    cleon correlation distance are not*
//                                    allowed, no account for antisymme-*
//                                    trization effects                 *
//                               = 6: no account for nucleon correlation*
//                                    distance and antisymmetrization   *
//                                    effects between Glauber interact- *
//                                    ions and elastic, charge exchange.*
//                                    Otherwise: interactions within an-*
//                                    tisymmetrization distance are not *
//                                    allowed, no account for nucleon   *
//                                    correlations                      *
//                            i1 = 0: formation time competition among  *
//                                    all kind of interactions          *
//                               = 1: formation time competition only   *
//                                    among different kind of inter-    *
//                                    actions (ie elastic vs inelastic) *
//                                    ch.exc. like elastic              *
//                               = 2: formation time competition only   *
//                                    among same kind of interactions   *
//                                    (ie elastic vs elastic) ch. exc.  *
//                                    like elastic. When Glauber acti-  *
//                                    vated only between inelastic      *
//                                    and the rest (elastic+charge exch-*
//                                    ange etc)                         *
//                               = 3: formation time competition when   *
//                                    Glauber activated only between    *
//                                    inelastic  and the rest (elastic+ *
//                                    charge exchange etc). Otherwise:  *
//                                    no formation time competition     *
//                               = 4: formation time competition only   *
//                                    among different kind of inter-    *
//                                    actions (ie elastic vs inelastic) *
//                                    ch.exc. different from elastic    *
//                                    (for NN it implies a Lpshft set-  *
//                                    ting, if not it is moot)          *
//                               = 5: formation time competition only   *
//                                    among different kind of inter-    *
//                                    actions (ie elastic vs inelastic) *
//                                    unless the target nucleon is of   *
//                                    the same specie                   *
//                            i2 = 0: formation time competition without*
//                                    accepting target nucleons alrea-  *
//                                    dy hit in competing previous int- *
//                                    eractions                         *
//                               = 1: formation time competition consi- *
//                                    dering all target nucleons, even  *
//                                    those already hit in competing    *
//                                    previous interactions             *
//                               = 2: formation time competition consi- *
//                                    dering all target nucleons, even  *
//                                    those already hit in competing    *
//                                    previous interactions, when Glau- *
//                                    ber activated only.               *
//                            i2 =1y: like i2 = y, but possible inter-  *
//                                3y  action q^2 related times/distan-  *
//                                    ces will use u rather than t if   *
//                                    it is smaller                     *
//                            i2 =1y: like i2 = y, but possible inter-  *
//                                2y  action q^2 related times/distan-  *
//                                    ces comparisons will succeed if   *
//                                    and only if the new q^2(u/t) is   *
//                                    larger then the previous one      *
//                            i3 = 0: formation zone competition done   *
//                                10  using the (0 <-> shortest,        *
//                                20  10 <-> longest, 20 <-> average)   *
//                                    secondary dt/dz for the old/new   *
//                                    interaction                       *
//                               = 1: formation zone competition done   *
//                                11  using the (original) projectile   *
//                                21  q2 related dt/dz when possible    *
//                                    vs the new interaction occurence  *
//                                    time/distance, if not like 0,10,20*
//                               = 2: formation zone competition done   *
//                                12  using the (original) projectile   *
//                                22  q2 related dt/dz when possible    *
//                                    vs the (2 <-> shortest,           *
//                                    12 <-> longest, 22 <-> average)   *
//                                    secondary dt/dz for the new inter-*
//                                    action                            *
//                               = 3: formation zone competition done   *
//                                13  using the the (3 <-> shortest,    *
//                                23  13 <-> longest, 23 <-> average)   *
//                                    secondary dt/dz for the old inter-*
//                                    action vs the new interaction occ-*
//                                    urence time/dist.                 *
//                               = 4: formation zone competition done   *
//                                14  using the (4 <-> shortest,        *
//                                24  14 <-> longest, 24 <-> average)   *
//                                    secondary dt/dz the old/new inter-*
//                                    action (same as 0, 10, 20)        *
//                               = 5: formation zone competition done   *
//                                15  using the (original) projectile   *
//                                25  q2 related dt/dz when possible    *
//                                    vs the new interaction occurence  *
//                                    time/distance if both elastic/cx, *
//                                    if not like 0, 10, 20             *
//                               = 6: formation zone competition done   *
//                                16  using the (original) projectile   *
//                                26  q2 related dt/dz when possible    *
//                                    vs the (6 <-> shortest,           *
//                                    16 <-> longest, 26 <-> average)   *
//                                    secondary dt/dz for the new inter-*
//                                    action, if both elastic/cx, if not*
//                                    like 0, 10, 20                    *
//                               = 7: formation zone competition done   *
//                                17  using the the (7 <-> shortest,    *
//                                27  17 <-> longest, 27 <-> average)   *
//                                    secondary dt/dz for the old inter-*
//                                    action vs the new interaction occ-*
//                                    urence time/distance, if both ela-*
//                                    stic/cx, if not like 0, 10, 20    *
//                            i4 = 0: formation zone competition done   *
//                                    on time, sharp value for proj.    *
//                                    q^2 related uncertainty           *
//                               = 1: formation zone competition done   *
//                                    on space, sharp value for proj.   *
//                                    q^2 related uncertainty           *
//                               = 2: formation zone competition done   *
//                                    on projected space, sharp value   *
//                                    for proj. q^2 related uncertainty *
//                               = 3: formation zone competition done   *
//                                    on time, exp. distrib. for proj.  *
//                                    q^2 related uncertainty           *
//                               = 4: formation zone competition done   *
//                                    on space, exp. distrib. for proj. *
//                                    q^2 related uncertainty           *
//                               = 5: formation zone competition done   *
//                                    on projected space, exp. distr.   *
//                                    for proj. q^2 related uncertainty *
//                                                                      *
//                                    Note that for making meaningful   *
//                                    Glauber calculations one needs    *
//                                    Lftcmp=.True., isign=-1/0/1,      *
//                                    i0 = 0/4/5/6, i1 = 0/1/2/4/5,     *
//                                    i2 = x1/x2,   i3, i4 whatever     *
//                                                                      *
//                        Fftflg = factor for the option for formation  *
//                                 time competition: meaningful only    *
//                                 for Lftcmp=.true.                    *
//                        Dftabs = extra distance (fm) to be required   *
//                                 for formation time competition when  *
//                                 the latter event is multinucleon     *
//                                 absorption: meaningful only for      *
//                                 Lftcmp=.true.                        *
//                        Iftctf = flag for high energy formation time  *
//                                 cutoff                               *
//                        Fftctf = constant for high energy formation   *
//                                 time cutoff                          *
//                        Idsclv = flag   for treatment of discrete     *
//                                 levels                               *
//                        Fdsclv = factor for treatment of discrete     *
//                                 levels                               *
//                        Irdflg = flag specifying the option for max.  *
//                                 nuclear radii calculations inside    *
//                                 Wstoap:                              *
//                                     Irdflg = I0 + 100 x I1           *
//                                     I0 = flag for rho  radii         *
//                                     I1 = flag for mass radii         *
//                        Irsrei = flag for various resonance reinterac-*
//                                 tions options                        *
//                               = 0 standard decay length possibly mo- *
//                                 dified by ftfrdc                     *
//                               = 1 two resonance interaction with for-*
//                                 mation time according to q^2         *
//                               = 2 two resonance interaction with for-*
//                                 mation time according to q^2 for sta-*
//                                 ble products and to standard decay   *
//                                 length for real resonances           *
//                        Ihlfxf = hole fixing flag: a value > 0 forces *
//                                 the hole fixing algorithm            *
//                        Icnbpr = flag for centrifugal barriers in pre-*
//                                 equilibrium                          *
//                                   Icnbpr = Jcnbpr + 1000 x Kcnbpr    *
//                                   Jcnbpr = flag for protons          *
//                                   Kcnbpr = flag for neutrons         *
//                        Lpreeq = logical flag for the new preequili-  *
//                                 brium                                *
//                        Lnwxan = logical flag for the new antinucleon *
//                                 xsecs                                *
//                        Lnphtc = logical flag for the new coherence   *
//                                 length, hard core and Pauli correla- *
//                                 tion implementation into prepre      *
//                        Lpnrho = logical flag for switching on the    *
//                                 calculation with separate densities  *
//                                 for p and n                          *
//                        Lnwrad = logical flag for computing nuclear   *
//                                 radii according to a fraction in mass*
//                                 and not in density                   *
//                        Lftcmp = logical flag for allowing formation  *
//                                 time competition between interactions*
//                        Lqecmp = logical flag for allowing quasi-ela- *
//                                 stic like interaction competition    *
//                        Lqenly = logical flag for allowing quasi-ela- *
//                                 stic like interactions only          *
//                        Lftcur = logical flag for allowing formation  *
//                                 time competition for the current par-*
//                                 ticle                                *
//                        Lqecur = logical flag for allowing quasi-ela- *
//                                 stic like formation time competition *
//                                 for the current (primary) particle   *
//                        Lftcac = logical flag for activated formation *
//                                 time competition                     *
//                        Lresft = logical flag for computing formation *
//                                 times in DPM mediated interactions,  *
//                                 from the "mother" resonance proper-  *
//                                 ties rather than from those of the   *
//                                 final decay products                 *
//                        Labrst = flag for absorption at rest or s-wave*
//                                 two body absorption for pions        *
//                        Lelstc = flag for elastic scattering          *
//                        Linels = flag for inelastic scattering        *
//                        Lchexc = flag for charge exchange             *
//                        Lstexc = flag for strangeness exchange        *
//                        Lannhl = flag for annihilation                *
//                        Labsrp = flag for resonant two body pion      *
//                                 absorption                           *
//                        Labsth = flag for three body absorption       *
//                        Lncdcy = flag for nucleon decay               *
//                        Lnusct = flag for neutrino scattering         *
//                        Llpsct = flag for lepton   scattering         *
//                        Lprabs = flag for current proj. absorption    *
//                        Ldeust = flag for deuteron stripping          *
//                        Lrsdcy = flag for resonance decay             *
//                        Lrs2nn = flag for resonance-N -> NN           *
//                        Lpnprj = flag for non ion projectiles         *
//                        Lpntrg = flag for proton/neutron targets      *
//                        Lrsrei = flag for resonance explicit reinter- *
//                                 actions (true <-> activated)         *
//                        Lcascd = run-time flag for Peanut cascade     *
//                                 part                                 *
//                        Lfrcin = flag for forced re-interactions (eg  *
//                                 after a non-converged energy depend- *
//                                 ent potential adjustment)            *
//                                                                      *
//----------------------------------------------------------------------*
//
extern struct {
	double	fftflg;
	double	dftabs;
	double	fdsclv;
	double	aexcmx;
	double	bexcmx;
	double	eexcmx;
	double	fftctf;
	double	sgmpre;
	double	dsgpre;
	double	tsgpre;
	int	iexctf;
	int	iftflg;
	int	iftctf;
	int	iadflg;
	int	igsflg;
	int	ialflg;
	int	icbflg;
	int	irdflg;
	int	itaucm;
	int	irsrei;
	int	ihlfxf;
	int	icnbpr;
	int	idsclv;
	logical	lpnrho[2];
	logical	lpnncl[2];
	logical	lpreeq;
	logical	lnphtc;
	logical	lnwrad;
	logical	lftcmp;
	logical	lqecmp;
	logical	lqenly;
	logical	lftcur;
	logical	lqecur;
	logical	lftcac;
	logical	lresft;
	logical	labrst;
	logical	lelstc;
	logical	linels;
	logical	lchexc;
	logical	lstexc;
	logical	lannhl;
	logical	labsrp;
	logical	labsth;
	logical	lncdcy;
	logical	lnusct;
	logical	llpsct;
	logical	lprabs;
	logical	ldeust;
	logical	lrsdcy;
	logical	lrs2nn;
	logical	lrsrei;
	logical	lnwxan;
	logical	lcascd;
	logical	lfrcin;
} nucflg_;


#ifdef __cplusplus
}
#endif
#endif