GEANT321/geant321/parnuc.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_PARNUC_INC
  10 #define CERNLIB_GEANT321_PARNUC_INC
  11 *
  12 *
  13 * parnuc.inc
  14 *
  15 *
  16 *=== parnuc ===========================================================*
  17 *
  18 *----------------------------------------------------------------------*
  19 *                                                                      *
  20 *     Created on  2 august 1991    by    Alfredo Ferrari & Paola Sala  *
  21 *                                                   Infn - Milan       *
  22 *                                                                      *
  23 *     Last change on 25-mar-93     by    Alfredo Ferrari               *
  24 *                                                                      *
  25 *     included in :                                                    *
  26 *                                                                      *
  27 *                   Couset                                             *
  28 *                   Nucnuc                                             *
  29 *                   Nwisel                                             *
  30 *                   Phdset                                             *
  31 *                   Phdwll                                             *
  32 *                   Pioabs                                             *
  33 *                   Pionuc                                             *
  34 *                   Pmprab                                             *
  35 *                   Pncset                                             *
  36 *                   Pncset                                             *
  37 *                   Prenuc                                             *
  38 *                   Prepre                                             *
  39 *                   Sbcomp                                             *
  40 *                   Umofin                                             *
  41 *                                                                      *
  42 *----------------------------------------------------------------------*
  43 *
  44       PARAMETER ( PIGRK  = PIPIPI )
  45       PARAMETER ( ALEVEL = 8.D-03 )
  46 *  Standard parameter for central density: it is exactly r0nucl of
  47 *  Parevt
  48       PARAMETER ( RCNUCL = 1.12D+00 )
  49 *  "Naive" r0 for sigmas
  50       PARAMETER ( R0SIG  = 1.3D+00 )
  51 *  r0 for sigmas according to Kikuchi & Kawai
  52       PARAMETER ( R0SIGK = 1.5D+00 )
  53 *  r0 for Coulomb barrier according to Kikuchi & Kawai
  54       PARAMETER ( RCOULB = 1.5D+00 )
  55 *  Parameter for Coulomb barrier according to Hermes (Evap-5)
  56       PARAMETER ( COULBH = 0.88235D-03 )
  57 *  Central density in nuclei
  58       PARAMETER ( RHONU0 = 0.75D+00 / PIGRK / RCNUCL / RCNUCL / RCNUCL )
  59 *  For Taufor, Aefrav & Rhonuc the combinations 1 and 3 are ok. If the
  60 *  Hannes expression for Taufor is used we must use Taufor from
  61 *  combination 3 and Aefrav and Rhonuc from combination 1
  62 *  Combination 3:
  63 *3    PARAMETER ( TAUFOR = 3.0D+00 )
  64 *  Combination 1:
  65 *     PARAMETER ( TAUFOR = 5.0D+00 )
  66       PARAMETER ( TAUFOR = 10.0D+00 )
  67 *  Thresholds for explicit interactions:
  68 *    Primary projectile:
  69       PARAMETER ( EKEEXP = 0.03D+00 )
  70 *    Secondary nucleons:
  71       PARAMETER ( EKREXP = 0.05D+00 )
  72 *    Just for Pauli checks:
  73       PARAMETER ( EKEMNM = 0.01D+00 )
  74 *
  75       PARAMETER ( NCPMX = 50 )
  76       COMMON / FKPARN / EKORI , PXORI , PYORI , PZORI , PTORI ,
  77      &                  ENNUC  (NCPMX), PNUCL  (NCPMX), EKFNUC (NCPMX),
  78      &                  XSTNUC (NCPMX), YSTNUC (NCPMX), ZSTNUC (NCPMX),
  79      &                  PXNUCL (NCPMX), PYNUCL (NCPMX), PZNUCL (NCPMX),
  80      &                  RSTNUC (NCPMX), RHNUCL (NCPMX), FREEPA (NCPMX),
  81      &                  CRRPAN (NCPMX), CRRPAP (NCPMX), BSTNUC (NCPMX),
  82      &                  WLRNUC (NCPMX), BNDGAV, DEFMIN, KPNUCL (NCPMX),
  83      &                  KRFNUC (NCPMX), KPORI , IBORI , IBNUCL, NPNUC ,
  84      &                  INUCTS (NCPMX), NNUCTS, ISFNUC (NCPMX)
  85
  86
  87 #endif