gpamela/gcdes/pcodat.inc

*
* $Id: pcodat.inc,v 1.1.1.1 1995/10/24 10:20:43 cernlib Exp $
*
* $Log: pcodat.inc,v $
* Revision 1.1.1.1  1995/10/24 10:20:43  cernlib
* Geant
*
*
#ifndef CERNLIB_GEANT321_PCODAT_INC
#define CERNLIB_GEANT321_PCODAT_INC
*
*
* pcodat.inc
*
C --- DATA STMTS. FOR GEANT/GHEISHA PARTICLE CODE CONVERSIONS ---
C --- KIPART(I)=GHEISHA CODE CORRESPONDING TO GEANT   CODE I ---
C --- IKPART(I)=GEANT   CODE CORRESPONDING TO GHEISHA CODE I ---
C
      DATA KIPART/
     $               1,   3,   4,   2,   5,   6,   8,   7,
     $               9,  12,  10,  13,  16,  14,  15,  11,
     $              35,  18,  20,  21,  22,  26,  27,  33,
     $              17,  19,  23,  24,  25,  28,  29,  34,
     $              35,  35,  35,  35,  35,  35,  35,  35,
     $              35,  35,  35,  35,  30,  31,  32,  35/
C
      DATA IKPART/
     $               1,   4,   2,   3,   5,   6,   8,   7,
     $               9,  11,  16,  10,  12,  14,  15,  13,
     $              25,  18,  26,  19,  20,  21,  27,  28,
     $              29,  22,  23,  30,  31,  45,  46,  47,
     $              24,  32,  48/
C

#endif
1	*
2	* $Id: pcodat.inc,v 1.1.1.1 1995/10/24 10:20:43 cernlib Exp $
3	*
4	* $Log: pcodat.inc,v $
5	* Revision 1.1.1.1 1995/10/24 10:20:43 cernlib
6	* Geant
7	*
8	*
9	#ifndef CERNLIB_GEANT321_PCODAT_INC
10	#define CERNLIB_GEANT321_PCODAT_INC
11	*
12	*
13	* pcodat.inc
14	*
15	C --- DATA STMTS. FOR GEANT/GHEISHA PARTICLE CODE CONVERSIONS ---
16	C --- KIPART(I)=GHEISHA CODE CORRESPONDING TO GEANT CODE I ---
17	C --- IKPART(I)=GEANT CODE CORRESPONDING TO GHEISHA CODE I ---
18	C
19	DATA KIPART/
20	$ 1, 3, 4, 2, 5, 6, 8, 7,
21	$ 9, 12, 10, 13, 16, 14, 15, 11,
22	$ 35, 18, 20, 21, 22, 26, 27, 33,
23	$ 17, 19, 23, 24, 25, 28, 29, 34,
24	$ 35, 35, 35, 35, 35, 35, 35, 35,
25	$ 35, 35, 35, 35, 30, 31, 32, 35/
26	C
27	DATA IKPART/
28	$ 1, 4, 2, 3, 5, 6, 8, 7,
29	$ 9, 11, 16, 10, 12, 14, 15, 13,
30	$ 25, 18, 26, 19, 20, 21, 27, 28,
31	$ 29, 22, 23, 30, 31, 45, 46, 47,
32	$ 24, 32, 48/
33	C
34
35	#endif