Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/geant321/eropts.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:02  ravndal
0006 * CMZ to CVS conversion artefact removed
0007 *
0008 * Revision 1.1  1996/03/06 15:32:33  mclareni
0009 * Add geane321 includes
0010 *
0011 *
0012 #ifndef CERNLIB_ERPRCDES_EROPTS_INC
0013 #define CERNLIB_ERPRCDES_EROPTS_INC
0014 *
0015 *      Sequence for conditions to stop tracking
0016 *
0017 * eropts.inc
0018 *
0019       CHARACTER*8     CHOPTI
0020       LOGICAL         LEEXAC, LELENG, LEONLY, LEPLAN, LEPOIN, LEVOLU
0021       REAL            ERPLI, ERPLO, ERLENG
0022       INTEGER         NAMEER, NUMVER, IOVLER
0023       COMMON /EROPTS/ ERPLI(3,2), ERPLO(3,4,MXPRED), ERLENG(MXPRED),
0024      +                NAMEER(MXPRED), NUMVER(MXPRED), IOVLER(MXPRED),
0025      +                LEEXAC, LELENG, LEONLY, LEPLAN, LEPOIN, LEVOLU
0026       COMMON /EROPTC/CHOPTI
0027 *
0028 * eropts.inc
0029 *
0030 #if defined(CERNLIB_INCLUDE)
0031 #include "geant231/incbeg.inc"
0032      +    EROPTS
0033 #include "geant321/incend.inc"
0034 #endif
0035 
0036 #endif