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