]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #ifndef CERNLIB_ISAJET_WGEN_INC |
2 | #define CERNLIB_ISAJET_WGEN_INC | |
3 | * | |
4 | * | |
5 | * wgen.inc | |
6 | * | |
7 | COMMON/WGEN/PTGN(3,3),QGEN(3,3),PTSEL(3),QSEL(3),SIGSL(3),NKL,NKH | |
8 | 1,EMSQ,EMGAM,KSEL,QSELWT(3) | |
9 | SAVE /WGEN/ | |
10 | INTEGER NKL,NKH,KSEL | |
11 | REAL PTGN,QGEN,PTSEL,QSEL,SIGSL,EMSQ,EMGAM,QSELWT | |
12 | ||
13 | #endif |