DPMJET/flukapro/(PAREVT)

   1 *$ CREATE PAREVT.ADD
   2 *COPY PAREVT
   3 *                                                                      *
   4 *=== parevt ===========================================================*
   5 *                                                                      *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Created on 28-3-90 by A. Ferrari, INFN - Milan                   *
   9 *                                                                      *
  10 *     Last change  on  24-aug-00    by   Alfredo Ferrari               *
  11 *                                                                      *
  12 *           included in:                                               *
  13 *                                                                      *
  14 *               flukam                                                 *
  15 *               bdnopt                                                 *
  16 *               berttp                                                 *
  17 *               bimsel                                                 *
  18 *               bselsc                                                 *
  19 *               clbmjt                                                 *
  20 *               corevt                                                 *
  21 *               corrin                                                 *
  22 *               deflts                                                 *
  23 *               difevv                                                 *
  24 *               difpro                                                 *
  25 *               difevv                                                 *
  26 *               difpro                                                 *
  27 *               distnu                                                 *
  28 *               epilog                                                 *
  29 *               evdeex                                                 *
  30 *               eventv                                                 *
  31 *               evevap                                                 *
  32 *               evxtes                                                 *
  33 *               evvini                                                 *
  34 *               ferevv                                                 *
  35 *               ferhav                                                 *
  36 *               frmbrk                                                 *
  37 *               frbkjp                                                 *
  38 *               ferevv                                                 *
  39 *               ferhav                                                 *
  40 *               frmbrk                                                 *
  41 *               frbkjp                                                 *
  42 *               geta                                                   *
  43 *               hdncin                                                 *
  44 *               kaonuc                                                 *
  45 *               kaskad                                                 *
  46 *               kasneu                                                 *
  47 *               incini                                                 *
  48 *               muoabs                                                 *
  49 *               muprab                                                 *
  50 *               nucdcy                                                 *
  51 *               nucnuc                                                 *
  52 *               nucevv                                                 *
  53 *               nwisel                                                 *
  54 *               peanut                                                 *
  55 *               phnsch                                                 *
  56 *               phncev                                                 *
  57 *               phnvev                                                 *
  58 *               piabth                                                 *
  59 *               pioabs                                                 *
  60 *               pionuc                                                 *
  61 *               pmprab                                                 *
  62 *               prepre                                                 *
  63 *               prolog                                                 *
  64 *               rakekv                                                 *
  65 *               rcfset                                                 *
  66 *               rsncli                                                 *
  67 *               rstsel                                                 *
  68 *               umofin                                                 *
  69 *               usrsrn                                                 *
  70 *                                                                      *
  71 *           frdiff = fraction of the total number of events which are  *
  72 *                    diffractive ones (obsolete, no longer used)       *
  73 *           fsprd0 = asymptotic reduction factor for cascade particle  *
  74 *                    energy slope parameter                            *
  75 *           fshpfn = modifying factor for bamjet momentum sharing jet  *
  76 *                    function                                          *
  77 *           rn1gsc = correlation factor between shower and grey part-  *
  78 *                    ticle multiplicities                              *
  79 *           rn2gsc = correlation factor between shower and grey part-  *
  80 *                    ticle multiplicities                              *
  81 *           dpower = power exponent used in the binomial distributions *
  82 *                    for grey particles                                *
  83 *           lpower = flag to signal if dpower is different from the    *
  84 *                    default option (dpower=2)                         *
  85 *           ldiffr = flag for particles undergoing diffractive events  *
  86 *           linctv = flag to switch on/off cascade nucleons and exci-  *
  87 *                    tation energy (it is important for testing the    *
  88 *                    generator                                         *
  89 *           levprt = flag for nuclear evaporation                      *
  90 *           ldeexg = flag for nuclear deexcitation gammas              *
  91 *           lgdhpr = flag for geometry dependent calculations in the   *
  92 *                    preequilibrium part                               *
  93 *           lpreex = flag for explicit treatment of the first inte-    *
  94 *                    ctions in the preequilibrium part                 *
  95 *           lhlfix = flag for "freezing" the hole depth of the holes   *
  96 *                    produced in the explicitly treated interactions   *
  97 *                    in the preequilibrium part                        *
  98 *           lprfix = flag for "freezing" the already sampled particle  *
  99 *                    exciton energy in the preequilibrium part         *
 100 *           lparwv = flag to apply the Heisenberg principle according  *
 101 *                    to the reduced DeBroglie wavelength in the calcu- *
 102 *                    lation of the impact parameter and in computing   *
 103 *                    the particle position after interactions          *
 104 *           ilvmod = flag to select the level density option (T=0)     *
 105 *           jlvmod = 2nd flag to select the level density option (T=oo)*
 106 *           llvmod = logical flag for using Cook's modified pairing    *
 107 *                    energies                                          *
 108 *           lsngch = logical flag for allowing single chain events     *
 109 *           lschdf = logical flag for allowing single chain events     *
 110 *                    in diffractive interactions                       *
 111 *           lhadri = logical flag for indicating whether the resonance *
 112 *                    model was used or not for primary interactions    *
 113 *           lnucri = logical flag for indicating whether the Nucriv    *
 114 *                    model was used or not for the current interaction *
 115 *           lpeanu = logical flag for indicating whether the Peanut    *
 116 *                    model was used or not for the current interaction *
 117 *           lphdrc = logical flag for indicating whether a photonuc-   *
 118 *                    lear interaction is a "direct" one or not         *
 119 *           latmss = logical flag for indicating whether to use ato-   *
 120 *                    mic masses during evaporation                     *
 121 *           lismrs = logical flag for indicating whether isomer calcu- *
 122 *                    lations are possible                              *
 123 *           loldev = logical flag for indicating for using the old     *
 124 *                    evaporation model rather than the new one         *
 125 *                                                                      *
 126 *----------------------------------------------------------------------*
 127 *
 128 *
 129 *  30% of events, randomly choosen, are diffractive events!!
 130 *  Now 20% (J. Ranft & A. Ferrari, 25-3-90)
 131 *  Actually it is no longer used!!
 132       PARAMETER ( FRDIFF = 0.2D+00 )
 133       PARAMETER ( ETHSEA = 1.0D+00 )
 134 *
 135       LOGICAL LDIFFR, LINCTV, LEVPRT, LHEAVY, LDEEXG, LGDHPR, LPREEX,
 136      &        LHLFIX, LPRFIX, LPARWV, LPOWER, LSNGCH, LLVMOD, LSCHDF,
 137      &        LHADRI, LNUCRI, LPEANU, LPHDRC, LATMSS, LISMRS, LOLDEV,
 138      &        LCHDCY
 139       COMMON / PAREVT / DPOWER, FSPRD0, FSHPFN, RN1GSC, RN2GSC,
 140      &                  LDIFFR (NALLWP),LPOWER, LINCTV, LEVPRT, LHEAVY,
 141      &                  LDEEXG, LGDHPR, LPREEX, LHLFIX, LPRFIX, LPARWV,
 142      &                  ILVMOD, JLVMOD, LLVMOD, LSNGCH, LSCHDF, LHADRI,
 143      &                  LNUCRI, LPEANU, LPHDRC, LATMSS, LISMRS, LOLDEV,
 144      &                  LCHDCY
 145