GEANT321/geant321/higfis.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:39  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_HIGFIS_INC
  10 #define CERNLIB_GEANT321_HIGFIS_INC
  11 *
  12 *
  13 * higfis.inc
  14 *
  15 *
  16 *=== higfis ===========================================================*
  17 *
  18 *----------------------------------------------------------------------*
  19 *                                                                      *
  20 *     HIGh energy FISsion common:                                      *
  21 *                                                                      *
  22 *     Created   on   9 april 1993   by   Alfredo Ferrari & Paola Sala  *
  23 *                                             INFN - Milan             *
  24 *     Last change on   11-apr-93    by   Alfredo Ferrari, INFN - Milan *
  25 *                                                                      *
  26 *          Fisinh = logical flag for HE fission                        *
  27 *          Afis(i)= ith fragment mass number just after fission        *
  28 *          Zfis(i)= ith fragment atomic number just after fission      *
  29 *          Ufis(i)= ith fragment excitation energy (MeV) just after    *
  30 *                   fission                                            *
  31 *         Ekfis(i)= ith fragment kinetic(MeV) energy just after fission*
  32 *         Amfis(i)= ith fragment atomic mass (MeV) just after fission  *
  33 *         Ppfis(i)= ith fragment momentum (MeV/c) just after fission   *
  34 *         Atfis(i)= ith fragment mass number after evaporation         *
  35 *         Ztfis(i)= ith fragment atomic number after evaporation       *
  36 *         Utfis(i)= ith fragment excitation energy (MeV) after evapora-*
  37 *                   tion                                               *
  38 *        Recfis(i)= ith fragment kinetic(MeV) energy after evaporation *
  39 *        Atmfis(i)= ith fragment atomic mass (MeV) after evaporation   *
  40 *        Pptfis(i)= ith fragment momentum (MeV/c) after evaporation    *
  41 *          Ebfiss = fission barrier (MeV)                              *
  42 *          Amdiff = Fission fragment kinetic energy (MeV)              *
  43 *            Apr0 = Mass number of the (first) fissioning nucleus      *
  44 *            Zpr0 = Atomic number of the (first) fissioning nucleus    *
  45 *             Uu0 = Excitation energy (MeV) of the (first) fissioning  *
  46 *                   nucleus                                            *
  47 *           Erec0 = Recoil kinetic energy (MeV) of the (first) fissio- *
  48 *                   ning nucleus                                       *
  49 *      Npartf(j,i)= Number of evaporated particle of type j after the  *
  50 *                   evaporation of the ith fragment                    *
  51 *        Hevfis(i)= Evaporated "heavies" kinetic energy (MeV) after the*
  52 *                   evaporation of the ith fragment                    *
  53 *           Nfiss = Number of fission fragments in the stack           *
  54 *                                                                      *
  55 *----------------------------------------------------------------------*
  56 *
  57       LOGICAL FISINH
  58       COMMON / FKHIGF / AFIS  (10), ZFIS  (10), UFIS  (10), EKFIS  (10),
  59      &                  AMFIS (10), PPFIS (10), COSLFF(3,0:10),
  60      &                  ATFIS (10), ZTFIS (10), UTFIS (10), RECFIS (10),
  61      &                  AMTFIS(10), PPTFIS(10), EBFISS, AMDIFF,
  62      &                  APR0, ZPR0, EREC0, UU0, HEVFIS (0:10),
  63      &                  NPARTF (6,0:10), NFISS, FISINH
  64       DIMENSION COSLF0 (3)
  65       EQUIVALENCE ( COSLF0 (1), COSLFF (1,0) )
  66
  67 #endif