Warning, /include/geant321/ertrio.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:00:40 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_ERTRIO_INC
0013 #define CERNLIB_ERPRCDES_ERTRIO_INC
0014 *
0015 * Sequence for input-output
0016 *
0017 * ertrio.inc
0018 *
0019 INTEGER MXPRED
0020 PARAMETER (MXPRED = 10)
0021 DOUBLE PRECISION ERDTRP
0022 REAL ERRIN, ERROUT, ERTRSP, ERXIN, ERXOUT, ERPIN,
0023 + ERPOUT
0024 INTEGER NEPRED, INLIST, ILPRED, IEPRED
0025 COMMON /ERTRIO/ ERDTRP(5,5,MXPRED), ERRIN(15), ERROUT(15,MXPRED),
0026 + ERTRSP(5,5,MXPRED), ERXIN( 3), ERXOUT( 3,MXPRED),
0027 + ERPIN(3), ERPOUT(3,MXPRED), NEPRED,INLIST,ILPRED,
0028 + IEPRED(MXPRED)
0029 #include "geant321/eropts.inc"
0030
0031
0032 *
0033 * ertrio.inc
0034 *
0035 #if defined(CERNLIB_INCLUDE)
0036 #include "geant321/incbeg.inc"
0037 + ERTRIO
0038 #include "geant321/incend.inc"
0039 #endif
0040
0041 #endif
