[u/mrichter/AliRoot.git] / GEANT321 / geant321 / parevt.inc

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:41  cernlib
* Geant
*
*
#ifndef CERNLIB_GEANT321_PAREVT_INC
#define CERNLIB_GEANT321_PAREVT_INC
*
*
* parevt.inc
*
*                                                                      *
*=== parevt ===========================================================*
*                                                                      *
*----------------------------------------------------------------------*
*                                                                      *
*     Created on 28-3-90 by A. Ferrari, INFN - Milan                   *
*                                                                      *
*     Last change  on  20 april  1992    by    Alfredo Ferrari         *
*                                                                      *
*           included in:                                               *
*                          fluka                                       *
*                          bdnopt                                      *
*                          corevt                                      *
*                          distnu                                      *
*                          epilog                                      *
*                          eventv                                      *
*                          evevap                                      *
*                          evvini                                      *
*                          evxtes                                      *
*                          ferevv                                      *
*                          kaskad                                      *
*                          incini                                      *
*                          nucevv                                      *
*                          pmprab                                      *
*           and in     :                                               *
*                          prenuc                                      *
*                          umofin                                      *
*                          bimsel                                      *
*                          nucnuc                                      *
*                          nwisel                                      *
*                          pioabs                                      *
*                          prepre                                      *
*                          rstsel                                      *
*                                                                      *
*           frdiff = fraction of the total number of events which are  *
*                    diffractive ones                                  *
*           pthdff = momentum threshold for diffractive events         *
*                    diffractive ones                                  *
*           fsprd0 = asymptotic reduction factor for cascade particle  *
*                    energy slope parameter                            *
*           fshpfn = modifying factor for bamjet momentum sharing jet  *
*                    function                                          *
*           rn1gsc = correlation factor between shower and grey part-  *
*                    ticle multiplicities                              *
*           rn2gsc = correlation factor between shower and grey part-  *
*                    ticle multiplicities                              *
*           dpower = power exponent used in the binomial distributions *
*                    for grey particles                                *
*           lpower = flag to signal if dpower is different from the    *
*                    default option (dpower=2)                         *
*           ldiffr = flag for particles undergoing diffractive events  *
*           linctv = flag to switch on/off cascade nucleons and exci-  *
*                    tation energy (it is important for testing the    *
*                    generator                                         *
*           levprt = flag for nuclear evaporation                      *
*           ldeexg = flag for nuclear deexcitation gammas              *
*           lgdhpr = flag for geometry dependent calculations in the   *
*                    preequilibrium part                               *
*           lpreex = flag for explicit treatment of the first inte-    *
*                    ctions in the preequilibrium part                 *
*           lhlfix = flag for "freezing" the hole depth of the holes   *
*                    produced in the explicitly treated interactions   *
*                    in the preequilibrium part                        *
*           lprfix = flag for "freezing" the already sampled particle  *
*                    exciton energy in the preequilibrium part         *
*           lparwv = flag to apply the Heisenberg principle according  *
*                    to the reduced DeBroglie wavelength in the calcu- *
*                    lation of the impact parameter and in computing   *
*                    the particle position after interactions          *
*           ilvmod = flag to select the level density option           *
*                                                                      *
*----------------------------------------------------------------------*
*
*
*  30% of events, randomly choosen, are diffractive events!!
*  Now 20% (J. Ranft & A. Ferrari, 25-3-90)
*
      PARAMETER ( FRDIFF = 0.2D+00 )
      PARAMETER ( PTHDFF = 8.5D+00 )
      PARAMETER ( ETHSEA = 1.0D+00 )
 
      LOGICAL LDIFFR, LINCTV, LEVPRT, LHEAVY, LDEEXG, LGDHPR, LPREEX,
     &        LHLFIX, LPRFIX, LPARWV, LPOWER
      COMMON / FKPARE / DPOWER, FSPRD0, FSHPFN, RN1GSC, RN2GSC,
     &                  LDIFFR (39),    LPOWER, LINCTV, LEVPRT, LHEAVY,
     &                  LDEEXG, LGDHPR, LPREEX, LHLFIX, LPRFIX, LPARWV,
     &                  ILVMOD
 

#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:41 cernlib
	6	* Geant
	7	*
	8	*
	9	#ifndef CERNLIB_GEANT321_PAREVT_INC
	10	#define CERNLIB_GEANT321_PAREVT_INC
	11	*
	12	*
	13	* parevt.inc
	14	*
	15	* *
	16	=== parevt ===========================================================
	17	* *
	18	----------------------------------------------------------------------
	19	* *
	20	* Created on 28-3-90 by A. Ferrari, INFN - Milan *
	21	* *
	22	* Last change on 20 april 1992 by Alfredo Ferrari *
	23	* *
	24	* included in: *
	25	* fluka *
	26	* bdnopt *
	27	* corevt *
	28	* distnu *
	29	* epilog *
	30	* eventv *
	31	* evevap *
	32	* evvini *
	33	* evxtes *
	34	* ferevv *
	35	* kaskad *
	36	* incini *
	37	* nucevv *
	38	* pmprab *
	39	* and in : *
	40	* prenuc *
	41	* umofin *
	42	* bimsel *
	43	* nucnuc *
	44	* nwisel *
	45	* pioabs *
	46	* prepre *
	47	* rstsel *
	48	* *
	49	* frdiff = fraction of the total number of events which are *
	50	* diffractive ones *
	51	* pthdff = momentum threshold for diffractive events *
	52	* diffractive ones *
	53	* fsprd0 = asymptotic reduction factor for cascade particle *
	54	* energy slope parameter *
	55	* fshpfn = modifying factor for bamjet momentum sharing jet *
	56	* function *
	57	* rn1gsc = correlation factor between shower and grey part- *
	58	* ticle multiplicities *
	59	* rn2gsc = correlation factor between shower and grey part- *
	60	* ticle multiplicities *
	61	* dpower = power exponent used in the binomial distributions *
	62	* for grey particles *
	63	* lpower = flag to signal if dpower is different from the *
	64	* default option (dpower=2) *
65	* ldiffr = flag for particles undergoing diffractive events *
66	* linctv = flag to switch on/off cascade nucleons and exci- *
67	* tation energy (it is important for testing the *
68	* generator *
69	* levprt = flag for nuclear evaporation *
70	* ldeexg = flag for nuclear deexcitation gammas *
71	* lgdhpr = flag for geometry dependent calculations in the *
72	* preequilibrium part *
73	* lpreex = flag for explicit treatment of the first inte- *
74	* ctions in the preequilibrium part *
75	* lhlfix = flag for "freezing" the hole depth of the holes *
76	* produced in the explicitly treated interactions *
77	* in the preequilibrium part *
78	* lprfix = flag for "freezing" the already sampled particle *
79	* exciton energy in the preequilibrium part *
80	* lparwv = flag to apply the Heisenberg principle according *
81	* to the reduced DeBroglie wavelength in the calcu- *
82	* lation of the impact parameter and in computing *
83	* the particle position after interactions *
84	* ilvmod = flag to select the level density option *
85	* *
86	----------------------------------------------------------------------
87	*
88	*
89	* 30% of events, randomly choosen, are diffractive events!!
90	* Now 20% (J. Ranft & A. Ferrari, 25-3-90)
91	*
92	PARAMETER ( FRDIFF = 0.2D+00 )
93	PARAMETER ( PTHDFF = 8.5D+00 )
94	PARAMETER ( ETHSEA = 1.0D+00 )
95
96	LOGICAL LDIFFR, LINCTV, LEVPRT, LHEAVY, LDEEXG, LGDHPR, LPREEX,
97	& LHLFIX, LPRFIX, LPARWV, LPOWER
98	COMMON / FKPARE / DPOWER, FSPRD0, FSHPFN, RN1GSC, RN2GSC,
99	& LDIFFR (39), LPOWER, LINCTV, LEVPRT, LHEAVY,
100	& LDEEXG, LGDHPR, LPREEX, LHLFIX, LPRFIX, LPARWV,
101	& ILVMOD
102
103
104	#endif