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

#ifndef CERNLIB_ISAJET_FORCE_INC
#define CERNLIB_ISAJET_FORCE_INC
*
*
* force.inc
*
      INTEGER   MXFORC
      PARAMETER (MXFORC=40)
      COMMON/FORCE/NFORCE,IFORCE(MXFORC),MFORCE(5,MXFORC)
     $,LOOK2(2,MXFORC),LOOKST(MXFORC),MEFORC(MXFORC)
      SAVE /FORCE/
      INTEGER   NFORCE,IFORCE,MFORCE,LOOK2,LOOKST,MEFORC

#endif
Commit	Line	Data
0795afa3	1	#ifndef CERNLIB_ISAJET_FORCE_INC
	2	#define CERNLIB_ISAJET_FORCE_INC
	3	*
	4	*
	5	* force.inc
	6	*
	7	INTEGER MXFORC
	8	PARAMETER (MXFORC=40)
	9	COMMON/FORCE/NFORCE,IFORCE(MXFORC),MFORCE(5,MXFORC)
	10	$,LOOK2(2,MXFORC),LOOKST(MXFORC),MEFORC(MXFORC)
	11	SAVE /FORCE/
	12	INTEGER NFORCE,IFORCE,MFORCE,LOOK2,LOOKST,MEFORC
	13
	14	#endif