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

#ifndef CERNLIB_ISAJET_DKYTAB_INC
#define CERNLIB_ISAJET_DKYTAB_INC
*
*
* dkytab.inc
*
C          LOOK must be dimensioned to the maximum value of INDEX.
      INTEGER   MXLOOK
      PARAMETER (MXLOOK=500)
      INTEGER   MXDKY
      PARAMETER (MXDKY=3000)
      COMMON/DKYTAB/LOOK(MXLOOK),CBR(MXDKY),MODE(5,MXDKY),MELEM(MXDKY)
      SAVE /DKYTAB/
#if defined(CERNLIB_LEVEL2)
#include "isajet/l2dky.inc"
* Ignoring t=pass
#endif
      INTEGER   LOOK,MODE,MELEM
      REAL      CBR

#endif
Commit	Line	Data
0795afa3	1	#ifndef CERNLIB_ISAJET_DKYTAB_INC
	2	#define CERNLIB_ISAJET_DKYTAB_INC
	3	*
	4	*
	5	* dkytab.inc
	6	*
	7	C LOOK must be dimensioned to the maximum value of INDEX.
	8	INTEGER MXLOOK
	9	PARAMETER (MXLOOK=500)
	10	INTEGER MXDKY
	11	PARAMETER (MXDKY=3000)
	12	COMMON/DKYTAB/LOOK(MXLOOK),CBR(MXDKY),MODE(5,MXDKY),MELEM(MXDKY)
	13	SAVE /DKYTAB/
	14	#if defined(CERNLIB_LEVEL2)
	15	#include "isajet/l2dky.inc"
	16	* Ignoring t=pass
	17	#endif
	18	INTEGER LOOK,MODE,MELEM
	19	REAL CBR
	20
	21	#endif