GEANT321/geant321/gcstra.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:33  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCSTRA_INC
  10 #define CERNLIB_GEANT321_GCSTRA_INC
  11 *
  12 *
  13 * gcstra.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16       PARAMETER (ILTAB=200)
  17       COMMON /GCSTRA / EMAX,EM(200),SFINT,EPSR(ILTAB),EPSI(ILTAB),
  18      +  FINT(ILTAB),EMIN,EPPS,BETA2,GAMMA2,WP2,S2,MEEV,EMM(200),
  19      +  GAMLOG(21),NP,NTAB,IE,NFACT,NICOLL
  20 *
  21       INTEGER NP,NTAB,IE,NFACT
  22       REAL    EMAX,EM,SFINT,EPSR,EPSI,FINT,EMIN,EPPS,EMM,GAMLOG
  23      +        ,BETA2,GAMMA2,WP2,S2,MEEV
  24 *
  25 #endif
  26
  27 #endif