*
* $Id: ertrio.inc,v 1.1.1.1 2007/01/22 17:32:33 phseaj Exp $
*
* $Log: ertrio.inc,v $
* Revision 1.1.1.1  2007/01/22 17:32:33  phseaj
* sholder-g77
*
* Revision 1.1.1.1  2006/11/14 09:23:35  phseaj
* Sourceholder
*
* Revision 1.2  2005/05/25 08:14:11  anoncvs
*
*
* Run dos2unix to deal with the Evil Empire's Carriage Return
*
* Revision 1.1  2004/07/12 04:56:27  dcasper
* Add common blocks needed for GEANE
*
* 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 "eropts.inc"
 
 
*
* ertrio.inc
*
#if defined(CERNLIB_INCLUDE)
#include "geant321/incbeg.inc"
     +    ERTRIO
#include "geant321/incend.inc"
#endif

#endif
