GEANT321/geant321/nucdat.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:40  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_NUCDAT_INC
  10 #define CERNLIB_GEANT321_NUCDAT_INC
  11 *
  12 *
  13 * nucdat.inc
  14 *
  15 *                                                                     *
  16 *=== nucdat ==========================================================*
  17 *                                                                     *
  18 *---------------------------------------------------------------------*
  19 *                                                                     *
  20 *     Include file Nucdat                                             *
  21 *                                                                     *
  22 *     Created on 20 april 1990  by            Alfredo Ferrari         *
  23 *                                               INFN Milan            *
  24 *                                                                     *
  25 *     Last change on 09-jun-92                                        *
  26 *                                                                     *
  27 *     Included in the following routines:                             *
  28 *                                                                     *
  29 *            COREVT                                                   *
  30 *            CORRIN                                                   *
  31 *            DISTNU                                                   *
  32 *            DRES                                                     *
  33 *            EVDEEX                                                   *
  34 *            EVENTV                                                   *
  35 *            EVEVAP                                                   *
  36 *            FEREVV                                                   *
  37 *            FERHAV                                                   *
  38 *            INCINI                                                   *
  39 *            NUCEVV                                                   *
  40 *            NUCRIV                                                   *
  41 *            RAKEKV                                                   *
  42 *            RBKEKV                                                   *
  43 *            EVENTQ                                                   *
  44 *            NUCRIN                                                   *
  45 *                                                                     *
  46 *---------------------------------------------------------------------*
  47 *
  48       PARAMETER ( AMUAMU = 0.93149432  D+00 )
  49 *     PARAMETER ( AMPROT = 0.9382796   D+00 )
  50       PARAMETER ( AMPROT = 0.93827231  D+00 )
  51 *     PARAMETER ( AMNEUT = 0.9395731   D+00 )
  52       PARAMETER ( AMNEUT = 0.93956563  D+00 )
  53       PARAMETER ( AMELEC = AMELCT )
  54       PARAMETER ( R0NUCL = 1.12        D+00 )
  55       PARAMETER ( RCCOUL = 1.7         D+00 )
  56       PARAMETER ( COULPR = 0.001439965 D+00 )
  57 *     PARAMETER ( FERTHO = 15.73       D-09 )
  58 *     PARAMETER ( EXPEBN = 7.D+00 / 3.D+00  )
  59 *     PARAMETER ( BEXC12 = FERTHO * 65.41634134195703D+00 )
  60       PARAMETER ( FERTHO = 14.33       D-09 )
  61       PARAMETER ( EXPEBN = 2.39        D+00 )
  62       PARAMETER ( BEXC12 = FERTHO * 72.40715579499394D+00 )
  63       PARAMETER ( AMUC12 = AMUAMU - AMELEC / 2.D+00 - BEXC12 / 12.D+00 )
  64       PARAMETER ( AMHYDR = AMPROT + AMELEC  )
  65       PARAMETER ( AMHTON = AMHYDR - AMNEUT  )
  66       PARAMETER ( AMNTOU = AMNEUT - AMUC12  )
  67       PARAMETER ( AMUCSQ = AMUC12 * AMUC12 )
  68       PARAMETER ( EBNDAV = 0.5D+00 * (AMPROT + AMNEUT) - AMUC12 )
  69 *   Gammin : threshold for deexcitation gammas production, set to 1 keV
  70 *   (this means that up to 1 keV of energy unbalancing can occur
  71 *    during an event)
  72       PARAMETER ( GAMMIN = 1.0D-06 )
  73       PARAMETER ( GAMNSQ = 2.0D+00 * GAMMIN * GAMMIN )
  74 *   Tvepsi : "epsilon" for excitation energy, set to gammin / 100
  75       PARAMETER ( TVEPSI = GAMMIN / 100.D+00 )
  76 *
  77       COMMON /FKNUDA/ AV0WEL,     APFRMX,     AEFRMX,     AEFRMA,
  78      &                RDSNUC,     V0WELL (2), PFRMMX (2), EFRMMX (2),
  79      &                EFRMAV (2), AMNUCL (2), AMNUSQ (2), EBNDNG (2),
  80      &                VEFFNU (2), ESLOPE (2), PKMNNU (2), EKMNNU (2),
  81      &                PKMXNU (2), EKMXNU (2), EKMNAV (2), EKINAV (2),
  82      &                EXMNAV (2), EKUPNU (2), EXMNNU (2), EXUPNU (2),
  83      &                ERCLAV (2), ESWELL (2), FINCUP (2), AMRCAV    ,
  84      &                AMRCSQ    , ATO1O3    , ZTO1O3    , ELBNDE (0:100)
  85
  86
  87 #endif