[u/mrichter/AliRoot.git] / GEANT321 / geant321 / ertrio.inc

*
* $Id$
*
* $Log$
* Revision 1.2  1996/07/25 15:00:40  ravndal
* CMZ to CVS conversion artefact removed
*
* Revision 1.1  1996/03/06 15:32:34  mclareni
* Add geane321 includes
*
*
#ifndef CERNLIB_ERPRCDES_ERTRIO_INC
#define CERNLIB_ERPRCDES_ERTRIO_INC
*
*      Sequence for input-output
*
* ertrio.inc
*
      INTEGER          MXPRED
      PARAMETER (MXPRED = 10)
      DOUBLE PRECISION ERDTRP
      REAL             ERRIN, ERROUT, ERTRSP, ERXIN, ERXOUT, ERPIN,
     +                 ERPOUT
      INTEGER          NEPRED, INLIST, ILPRED, IEPRED
      COMMON /ERTRIO/  ERDTRP(5,5,MXPRED), ERRIN(15), ERROUT(15,MXPRED),
     +                 ERTRSP(5,5,MXPRED), ERXIN( 3), ERXOUT( 3,MXPRED),
     +                 ERPIN(3), ERPOUT(3,MXPRED), NEPRED,INLIST,ILPRED,
     +                 IEPRED(MXPRED)
#include "geant321/eropts.inc"
 
 
*
* ertrio.inc
*
#if defined(CERNLIB_INCLUDE)
#include "geant321/incbeg.inc"
     +    ERTRIO
#include "geant321/incend.inc"
#endif

#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.2 1996/07/25 15:00:40 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_ERTRIO_INC
	13	#define CERNLIB_ERPRCDES_ERTRIO_INC
	14	*
	15	* Sequence for input-output
	16	*
	17	* ertrio.inc
	18	*
	19	INTEGER MXPRED
	20	PARAMETER (MXPRED = 10)
	21	DOUBLE PRECISION ERDTRP
	22	REAL ERRIN, ERROUT, ERTRSP, ERXIN, ERXOUT, ERPIN,
	23	+ ERPOUT
	24	INTEGER NEPRED, INLIST, ILPRED, IEPRED
	25	COMMON /ERTRIO/ ERDTRP(5,5,MXPRED), ERRIN(15), ERROUT(15,MXPRED),
	26	+ ERTRSP(5,5,MXPRED), ERXIN( 3), ERXOUT( 3,MXPRED),
	27	+ ERPIN(3), ERPOUT(3,MXPRED), NEPRED,INLIST,ILPRED,
	28	+ IEPRED(MXPRED)
	29	#include "geant321/eropts.inc"
	30
	31
	32	*
	33	* ertrio.inc
	34	*
	35	#if defined(CERNLIB_INCLUDE)
	36	#include "geant321/incbeg.inc"
	37	+ ERTRIO
	38	#include "geant321/incend.inc"
	39	#endif
	40
	41	#endif