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

#ifndef CERNLIB_ISAJET_SSMODE_INC
#define CERNLIB_ISAJET_SSMODE_INC
*
*
* ssmode.inc
*
C          MXSS         =  maximum number of modes
C          NSSMOD       = number of modes
C          ISSMOD       = initial particle
C          JSSMOD       = final particles
C          GSSMOD       = width
C          BSSMOD       = branching ratio
C          MSSMOD       = decay matrix element pointer
C          LSSMOD       = logical flag used internally by SSME3
      INTEGER MXSS
      PARAMETER (MXSS=1000)
      COMMON/SSMODE/NSSMOD,ISSMOD(MXSS),JSSMOD(5,MXSS),GSSMOD(MXSS)
     $,BSSMOD(MXSS),MSSMOD(MXSS),LSSMOD
      INTEGER NSSMOD,ISSMOD,JSSMOD,MSSMOD
      REAL GSSMOD,BSSMOD
      LOGICAL LSSMOD
      SAVE /SSMODE/

#endif
Commit	Line	Data
0795afa3	1	#ifndef CERNLIB_ISAJET_SSMODE_INC
	2	#define CERNLIB_ISAJET_SSMODE_INC
	3	*
	4	*
	5	* ssmode.inc
	6	*
	7	C MXSS = maximum number of modes
	8	C NSSMOD = number of modes
	9	C ISSMOD = initial particle
	10	C JSSMOD = final particles
	11	C GSSMOD = width
	12	C BSSMOD = branching ratio
	13	C MSSMOD = decay matrix element pointer
	14	C LSSMOD = logical flag used internally by SSME3
	15	INTEGER MXSS
	16	PARAMETER (MXSS=1000)
	17	COMMON/SSMODE/NSSMOD,ISSMOD(MXSS),JSSMOD(5,MXSS),GSSMOD(MXSS)
	18	$,BSSMOD(MXSS),MSSMOD(MXSS),LSSMOD
	19	INTEGER NSSMOD,ISSMOD,JSSMOD,MSSMOD
	20	REAL GSSMOD,BSSMOD
	21	LOGICAL LSSMOD
	22	SAVE /SSMODE/
	23
	24	#endif