Warning, /include/geant321/erwork.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.2 1996/07/25 15:01:16 ravndal
0006 * CMZ to CVS conversion artefact removed
0007 *
0008 * Revision 1.1 1996/03/06 15:32:34 mclareni
0009 * Add geane321 includes
0010 *
0011 *
0012 #ifndef CERNLIB_ERPRCDES_ERWORK_INC
0013 #define CERNLIB_ERPRCDES_ERWORK_INC
0014 *
0015 * Working sequences for the interface
0016 *
0017 * erwork.inc
0018 *
0019 DOUBLE PRECISION EI, EF, ASDSC
0020 COMMON /ERWORK/ EI(15), EF(15), ASDSC(5,5),
0021 + XI(3), PPI(3), HI(9),
0022 + XF(3), PF(3), HF(9),
0023 + CHTR, DEDX2, BACKTR, CUTEK, TLGCM2, TLRAD
0024 *
0025 * erwork.inc
0026 *
0027 #if defined(CERNLIB_INCLUDE)
0028 #include "geant321/incbeg.inc"
0029 + ERWORK
0030 #include "geant321/incend.inc"
0031 #endif
0032
0033 #endif
