GEANT321/geant321/part2.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:42  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_PART2_INC
  10 #define CERNLIB_GEANT321_PART2_INC
  11 *
  12 *
  13 * part2.inc
  14 *
  15 *
  16 *=== part2 ============================================================*
  17 *
  18 *----------------------------------------------------------------------*
  19 *     Include file: part2 copy        Revised on 20-7-90 by A. Ferrari *
  20 *     Note: see also part copy and part3 copy                          *
  21 *     Changes: none                                                    *
  22 *     Included in the following subroutines or functions: not updated  *
  23 *                                                                      *
  24 *     Description of the common block(s) and variable(s)               *
  25 *                                                                      *
  26 *         Kptoip = conversion from part to paprop numbering            *
  27 *         Iptokp = conversion from paprop to part numbering            *
  28 *                                                                      *
  29 *----------------------------------------------------------------------*
  30 *
  31       PARAMETER (IDMAX8=183)
  32       CHARACTER*8  ANAME
  33       COMMON / FKPART / AAM  (IDMAX8), GA     (IDMAX8), TAU    (IDMAX8),
  34      &                AAMDSC (IDMAX8), IICH   (IDMAX8), IIBAR  (IDMAX8),
  35      &                K1     (IDMAX8), K2     (IDMAX8), KPTOIP (IDMAX8),
  36      &                IPTOKP (39)
  37       COMMON / FKCHPA / ANAME (IDMAX8)
  38
  39
  40 #endif