]>
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 |