This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / part3.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_PART3_INC
10 #define CERNLIB_GEANT321_PART3_INC
11 *
12 *
13 * part3.inc
14 *
15 *
16 *=== part3 ============================================================*
17 *
18 *----------------------------------------------------------------------*
19 *     Include file: part3 copy        Revised on 20-7-90 by A. Ferrari *
20 *     Note: see also part copy and part2 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  ANAMC
33       COMMON / FKPART / AMC  (IDMAX8), GAC    (IDMAX8), TAUC   (IDMAX8),
34      &                AMCDSC (IDMAX8), ICHC   (IDMAX8), IBARC  (IDMAX8),
35      &                K1C    (IDMAX8), K2C    (IDMAX8), KPTOIP (IDMAX8),
36      &                IPTOKP (39)
37       COMMON / FKCHPA / ANAMC (IDMAX8)
38  
39
40 #endif