DPMJET/flukapro/(GENTHR)

   1 *$ CREATE GENTHR.ADD
   2 *COPY GENTHR
   3 *
   4 *=== genthr ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     hadronic interaction GENerator THResholds                        *
   9 *                                                                      *
  10 *     Created on   20 april 1995   by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on  21-sep-00    by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *           dpjhdt = DPmJet HaDron  interaction Threshold (kin. en.)   *
  16 *           dpjiot = DPmJet IOn     interaction Threshold (kin. en./n) *
  17 *           peanct = PEAnut NuCleon interaction Threshold (kin. en.)   *
  18 *           peapit = PEAnut PIon    interaction Threshold (kin. en.)   *
  19 *           peakat = PEAnut KAon    interaction Threshold (kin. en.)   *
  20 *           peakbt = PEAnut KaonBar interaction Threshold (kin. en.)   *
  21 *           peaant = PEAnut Anti-Nucleon inter. Threshold (kin. en.)   *
  22 *           peahyt = PEAnut HYperon interaction Threshold (kin. en.)   *
  23 *           peaaht = PEAnut Anti-Hyperon inter. Threshold (kin. en.)   *
  24 *           pldnct = Peanut (oLD version) NuCleon interaction Thresh.  *
  25 *           phaswt = switching momentum from h-A resonance model       *
  26 *                    to the h-A DPM model for those particles supported*
  27 *                    by the resonance model                            *
  28 *           phasmr = smearing  +/-DeltaP for switching from the h-A    *
  29 *                    resonance model to the h-A DPM model for those    *
  30 *                    particles supported by the resonance model        *
  31 *           phnsmr = smearing  +/-DeltaP for switching from the h-N    *
  32 *                    resonance model to the h-N DPM model for those    *
  33 *                    particles supported by the resonance model        *
  34 *           pthrsh = momentum threshold for switching from the reso-   *
  35 *                    nance to the DPM model for h-h interactions       *
  36 *           pthdff = momentum threshold for diffractive events         *
  37 *           ijnucr = flags for particles supported by the resonance    *
  38 *                    model                                             *
  39 *           lhasmr = flag for smearing the transition between the      *
  40 *                    h-A resonance model and the h-A DPM model         *
  41 *           lhnsmr = flag for smearing the transition between the      *
  42 *                    h-N resonance model and the h-N DPM model         *
  43 *                                                                      *
  44 *----------------------------------------------------------------------*
  45 *
  46       COMMON / GENTHR / PEANCT, PEAPIT, PEAKAT, PEAKBT, PEAANT, PEAHYT,
  47      &                  PEAAHT, PLDNCT, PHASWT, PHASMR, PHNSMR, DPJHDT,
  48      &                  DPJIOT, PTHRSH (NALLWP), PTHDFF (NALLWP),
  49      &                  IJNUCR (NALLWP), LHASMR, LHNSMR
  50       LOGICAL LHASMR, LHNSMR
  51