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

#ifndef CERNLIB_ISAJET_FRGPAR_INC
#define CERNLIB_ISAJET_FRGPAR_INC
*
*
* frgpar.inc
*
      COMMON/FRGPAR/PUD,PBARY,SIGQT,PEND,XGEN(8),PSPIN1(8),
     $PMIX1(3,2),PMIX2(3,2),XGENSS(9)
      SAVE /FRGPAR/
      EQUIVALENCE (PMIX1(1,1),PMIXX1(1))
      EQUIVALENCE (PMIX2(1,1),PMIXX2(1))
      EQUIVALENCE(FRPAR(1),PUD)
      REAL      PUD,PBARY,SIGQT,PEND,XGEN,PSPIN1,PMIX1,PMIX2,XGENSS,
     +          PMIXX1(6),PMIXX2(6),FRPAR(32)

#endif
Commit	Line	Data
0795afa3	1	#ifndef CERNLIB_ISAJET_FRGPAR_INC
	2	#define CERNLIB_ISAJET_FRGPAR_INC
	3	*
	4	*
	5	* frgpar.inc
	6	*
	7	COMMON/FRGPAR/PUD,PBARY,SIGQT,PEND,XGEN(8),PSPIN1(8),
	8	$PMIX1(3,2),PMIX2(3,2),XGENSS(9)
	9	SAVE /FRGPAR/
	10	EQUIVALENCE (PMIX1(1,1),PMIXX1(1))
	11	EQUIVALENCE (PMIX2(1,1),PMIXX2(1))
	12	EQUIVALENCE(FRPAR(1),PUD)
	13	REAL PUD,PBARY,SIGQT,PEND,XGEN,PSPIN1,PMIX1,PMIX2,XGENSS,
	14	+ PMIXX1(6),PMIXX2(6),FRPAR(32)
	15
	16	#endif