Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / gcnmec.inc
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:31  cernlib
6 * Geant
7 *
8 *
9 #ifndef CERNLIB_GEANT321_GCNMEC_INC
10 #define CERNLIB_GEANT321_GCNMEC_INC
11 *
12 *
13 * gcnmec.inc
14 *
15 #if !defined(CERNLIB_INCLUDE)
16       PARAMETER(NMECA=45,IBLOWN=23)
17       CHARACTER*4 CHNMEC(NMECA)
18 *
19 * *** Two blank spaces for FISF and CAPF which do not exist
20 *
21 * *** The low-neutron cross-sections have to be at the end for the
22 * *** logics of the routine to work, and they have to start at
23 * *** IBLOWN
24       DATA CHNMEC /
25      +     'HADF',  'INEF',  'ELAF',  'NULL',  'NULL',
26      +     'HADG',  'INEG',  'ELAG',  'FISG',  'CAPG',
27      +     'LOSS',  'PHOT',  'ANNI',  'COMP',  'BREM',
28      +     'PAIR',  'DRAY',  'PFIS',  'RAYL',  'MUNU',
29      +     'RANG',  'STEP',  'LOWN',  'NABS',  'NELA',
30      +     'NINE',  'NINC',  'N,2N',  'N,3N',  'N,NA',
31      +     'N2NA',  'N,NP',  'NFIS',  'N,GA',  'N,PR',
32      +     'N,DE',  'N,TR',  'N3HE',  'N,AL',  'N,2A',
33      +     'N,3A',  'N,2P',  'N,PA',  'NT2A',  'ND2A'/
34 *
35 #endif
36
37 #endif