GEANT321/geant321/parevt.inc

   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