gpamela/gcdes/gcnmec.inc

*
* $Id$
*
* $Log$
*
*
* gcnmec.inc
*
      PARAMETER(NMECA=45,IBLOWN=23)
      CHARACTER*4 CHNMEC(NMECA)
*
* *** Two blank spaces for FISF and CAPF which do not exist
*
* *** The low-neutron cross-sections have to be at the end for the
* *** logics of the routine to work, and they have to start at
* *** IBLOWN
      DATA CHNMEC /
     +     'HADF',  'INEF',  'ELAF',  'NULL',  'NULL',
     +     'HADG',  'INEG',  'ELAG',  'FISG',  'CAPG',
     +     'LOSS',  'PHOT',  'ANNI',  'COMP',  'BREM',
     +     'PAIR',  'DRAY',  'PFIS',  'RAYL',  'MUNU',
     +     'RANG',  'STEP',  'LOWN',  'NABS',  'NELA',
     +     'NINE',  'NINC',  'N,2N',  'N,3N',  'N,NA',
     +     'N2NA',  'N,NP',  'NFIS',  'N,GA',  'N,PR',
     +     'N,DE',  'N,TR',  'N3HE',  'N,AL',  'N,2A',
     +     'N,3A',  'N,2P',  'N,PA',  'NT2A',  'ND2A'/
*
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*
7	* gcnmec.inc
8	*
9	PARAMETER(NMECA=45,IBLOWN=23)
10	CHARACTER*4 CHNMEC(NMECA)
11	*
12	* *** Two blank spaces for FISF and CAPF which do not exist
13	*
14	* *** The low-neutron cross-sections have to be at the end for the
15	* *** logics of the routine to work, and they have to start at
16	* *** IBLOWN
17	DATA CHNMEC /
18	+ 'HADF', 'INEF', 'ELAF', 'NULL', 'NULL',
19	+ 'HADG', 'INEG', 'ELAG', 'FISG', 'CAPG',
20	+ 'LOSS', 'PHOT', 'ANNI', 'COMP', 'BREM',
21	+ 'PAIR', 'DRAY', 'PFIS', 'RAYL', 'MUNU',
22	+ 'RANG', 'STEP', 'LOWN', 'NABS', 'NELA',
23	+ 'NINE', 'NINC', 'N,2N', 'N,3N', 'N,NA',
24	+ 'N2NA', 'N,NP', 'NFIS', 'N,GA', 'N,PR',
25	+ 'N,DE', 'N,TR', 'N3HE', 'N,AL', 'N,2A',
26	+ 'N,3A', 'N,2P', 'N,PA', 'NT2A', 'ND2A'/
27	*