GEANT321/geant321/ertrio.inc

   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