5 * Revision 1.1.1.1 1995/10/24 10:20:42 cernlib
9 #ifndef CERNLIB_GEANT321_PART3_INC
10 #define CERNLIB_GEANT321_PART3_INC
16 *=== part3 ============================================================*
18 *----------------------------------------------------------------------*
19 * Include file: part3 copy Revised on 20-7-90 by A. Ferrari *
20 * Note: see also part copy and part2 copy *
22 * Included in the following subroutines or functions: not updated *
24 * Description of the common block(s) and variable(s) *
26 * Kptoip = conversion from part to paprop numbering *
27 * Iptokp = conversion from paprop to part numbering *
29 *----------------------------------------------------------------------*
31 PARAMETER (IDMAX8=183)
33 COMMON / FKPART / AMC (IDMAX8), GAC (IDMAX8), TAUC (IDMAX8),
34 & AMCDSC (IDMAX8), ICHC (IDMAX8), IBARC (IDMAX8),
35 & K1C (IDMAX8), K2C (IDMAX8), KPTOIP (IDMAX8),
37 COMMON / FKCHPA / ANAMC (IDMAX8)