Warning, /include/isajet/frgpar.inc is written in an unsupported language. File is not indexed.
0001 #ifndef CERNLIB_ISAJET_FRGPAR_INC
0002 #define CERNLIB_ISAJET_FRGPAR_INC
0003 *
0004 *
0005 * frgpar.inc
0006 *
0007 COMMON/FRGPAR/PUD,PBARY,SIGQT,PEND,XGEN(8),PSPIN1(8),
0008 $PMIX1(3,2),PMIX2(3,2),XGENSS(9)
0009 SAVE /FRGPAR/
0010 EQUIVALENCE (PMIX1(1,1),PMIXX1(1))
0011 EQUIVALENCE (PMIX2(1,1),PMIXX2(1))
0012 EQUIVALENCE(FRPAR(1),PUD)
0013 REAL PUD,PBARY,SIGQT,PEND,XGEN,PSPIN1,PMIX1,PMIX2,XGENSS,
0014 + PMIXX1(6),PMIXX2(6),FRPAR(32)
0015
0016 #endif
