| 1 |
bottai |
3.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 |