Warning, /include/geant321/gcphrd.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1995/10/24 10:20:34 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCPHRD_INC
0010 #define CERNLIB_GEANT321_GCPHRD_INC
0011 *
0012 *
0013 * gcphrd.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 C GRATE - radiative modes' rates
0017 INTEGER KSHLS,L1SHLS,L2SHLS,L3SHLS,ISHLS,ISHLUS,ISHLTR
0018 REAL GPHRAT
0019 PARAMETER (KSHLS=6)
0020 PARAMETER (L1SHLS=8)
0021 PARAMETER (L2SHLS=7)
0022 PARAMETER (L3SHLS=8)
0023 PARAMETER (ISHLS=29)
0024 COMMON / GCPHRD / GPHRAT(ISHLS,MAXELZ),ISHLUS(24,4),ISHLTR(ISHLS)
0025 C
0026 #endif
0027 *
0028 * gcphrd.inc
0029 *
0030 #if defined(CERNLIB_INCLUDE)
0031 *
0032 #include "geant321/incbeg.inc"
0033 + gcphrd
0034 #include "geant321/incend.inc"
0035 #endif
0036
0037 #endif
