GEANT321/geant321/gcphrd.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:35  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCPHRD_INC
  10 #define CERNLIB_GEANT321_GCPHRD_INC
  11 *
  12 *
  13 * gcphrd.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16 C  GRATE - radiative modes' rates
  17       INTEGER KSHLS,L1SHLS,L2SHLS,L3SHLS,ISHLS,ISHLUS,ISHLTR
  18       REAL GPHRAT
  19       PARAMETER (KSHLS=6)
  20       PARAMETER (L1SHLS=8)
  21       PARAMETER (L2SHLS=7)
  22       PARAMETER (L3SHLS=8)
  23       PARAMETER (ISHLS=29)
  24       COMMON / GCPHRD / GPHRAT(ISHLS,MAXELZ),ISHLUS(24,4),ISHLTR(ISHLS)
  25 C
  26 #endif
  27 *
  28 * gcphrd.inc
  29 *
  30 #if defined(CERNLIB_INCLUDE)
  31 *
  32 #include "geant321/incbeg.inc"
  33      +   gcphrd
  34 #include "geant321/incend.inc"
  35 #endif
  36
  37 #endif