/usr/include/isajet758/zevel.inc is in libisajet758-3-dev 20061220+dfsg3-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | #ifndef CERNLIB_ISAJET_ZEVEL_INC
#define CERNLIB_ISAJET_ZEVEL_INC
*
*
* zevel.inc
*
INTEGER MAXLEN
PARAMETER (MAXLEN=1024)
COMMON/ZEVEL/IZEVEL(MAXLEN)
SAVE /ZEVEL/
EQUIVALENCE(ZEVEL(1),IZEVEL(1))
EQUIVALENCE(LZEVEL(1),IZEVEL(1))
EQUIVALENCE (IZVL1,IZEVEL(1))
EQUIVALENCE (IZVL2,IZEVEL(2))
#if defined(CERNLIB_LEVEL2)
#include <isajet/l2zevl.inc>
* Ignoring t=pass
#endif
INTEGER IZEVEL,IZVL1,IZVL2
REAL ZEVEL(MAXLEN)
LOGICAL LZEVEL(MAXLEN)
#endif
|