GEANT321/geant321/erwork.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/07/25 15:01:16  ravndal
   6 * CMZ to CVS conversion artefact removed
   7 *
   8 * Revision 1.1  1996/03/06 15:32:34  mclareni
   9 * Add geane321 includes
  10 *
  11 *
  12 #ifndef CERNLIB_ERPRCDES_ERWORK_INC
  13 #define CERNLIB_ERPRCDES_ERWORK_INC
  14 *
  15 *      Working sequences for the interface
  16 *
  17 * erwork.inc
  18 *
  19       DOUBLE PRECISION EI, EF, ASDSC
  20       COMMON /ERWORK/ EI(15), EF(15), ASDSC(5,5),
  21      +                   XI(3), PPI(3), HI(9),
  22      +                   XF(3), PF(3),  HF(9),
  23      +                   CHTR, DEDX2, BACKTR, CUTEK, TLGCM2, TLRAD
  24 *
  25 * erwork.inc
  26 *
  27 #if defined(CERNLIB_INCLUDE)
  28 #include "geant321/incbeg.inc"
  29      +    ERWORK
  30 #include "geant321/incend.inc"
  31 #endif
  32
  33 #endif