Warning, /include/cojets/zevel.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id: zevel.inc,v 1.1.1.1 1996/01/11 14:14:59 mclareni Exp $
0003 *
0004 * $Log: zevel.inc,v $
0005 * Revision 1.1.1.1 1996/01/11 14:14:59 mclareni
0006 * Cojets
0007 *
0008 *
0009 #ifndef CERNLIB_COJETS_ZEVEL_INC
0010 #define CERNLIB_COJETS_ZEVEL_INC
0011 *
0012 *
0013 * zevel.inc
0014 *
0015 PARAMETER (NTRIES=1)
0016 PARAMETER (MAXLEN=1024)
0017 COMMON/ZEVEL/IZEVEL(MAXLEN)
0018 REAL ZEVEL(MAXLEN)
0019 EQUIVALENCE(ZEVEL(1),IZEVEL(1))
0020 EQUIVALENCE (IZVL1,IZEVEL(1))
0021 EQUIVALENCE (IZVL2,IZEVEL(2))
0022
0023 #endif
