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	cafagna	3.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			*