/usr/include/isajet758/partcl.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 | #ifndef CERNLIB_ISAJET_PARTCL_INC
#define CERNLIB_ISAJET_PARTCL_INC
*
*
* partcl.inc
*
INTEGER MXPTCL,IPACK
PARAMETER (MXPTCL=4000,IPACK=10000)
COMMON/PARTCL/NPTCL,PPTCL(5,MXPTCL),IORIG(MXPTCL),IDENT(MXPTCL)
1,IDCAY(MXPTCL)
SAVE /PARTCL/
#if defined(CERNLIB_LEVEL2)
#include <isajet/l2part.inc>
* Ignoring t=pass
#endif
INTEGER NPTCL,IORIG,IDENT,IDCAY
REAL PPTCL
#endif
|