GEANT321/geant321/nucpar.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_NUCPAR_INC
  10 #define CERNLIB_GEANT321_NUCPAR_INC
  11 *
  12 *
  13 * nucpar.inc
  14 *
  15 *
  16 *=== nucpar ===========================================================*
  17 *
  18 *
  19 *----------------------------------------------------------------------*
  20 *     Created on 6-9-89 by A. Ferrari                                  *
  21 *                       included in:                                   *
  22 *                                    nucevt                            *
  23 *                                    evxtes                            *
  24 *                                    distnu                            *
  25 *                                    eventq                            *
  26 *----------------------------------------------------------------------*
  27
  28       PARAMETER (MXPNUC=600)
  29       CHARACTER*8 ANNU
  30       COMMON /FKNUPA/  PXNU(MXPNUC),   PYNU(MXPNUC),   PZNU(MXPNUC),
  31      &                HEPNU(MXPNUC),   AMNU(MXPNUC),   ANNU(MXPNUC),
  32      &                ICHNU(MXPNUC), IBARNU(MXPNUC),  NRENU(MXPNUC)
  33
  34
  35
  36 #endif