[u/mrichter/AliRoot.git] / ISAJET / isajet / zevel.inc

#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
Commit	Line	Data
0795afa3	1	#ifndef CERNLIB_ISAJET_ZEVEL_INC
	2	#define CERNLIB_ISAJET_ZEVEL_INC
	3	*
	4	*
	5	* zevel.inc
	6	*
	7	INTEGER MAXLEN
	8	PARAMETER (MAXLEN=1024)
	9	COMMON/ZEVEL/IZEVEL(MAXLEN)
	10	SAVE /ZEVEL/
	11	EQUIVALENCE(ZEVEL(1),IZEVEL(1))
	12	EQUIVALENCE(LZEVEL(1),IZEVEL(1))
	13	EQUIVALENCE (IZVL1,IZEVEL(1))
	14	EQUIVALENCE (IZVL2,IZEVEL(2))
	15	#if defined(CERNLIB_LEVEL2)
	16	#include "isajet/l2zevl.inc"
	17	* Ignoring t=pass
	18	#endif
	19	INTEGER IZEVEL,IZVL1,IZVL2
	20	REAL ZEVEL(MAXLEN)
	21	LOGICAL LZEVEL(MAXLEN)
	22
	23	#endif