- SAVE /PYDAT1/,/PYINT1/,/PYINT2/
-
-C...Set default weight for WTXS.
- WTXS=1D0
-
-C...Read out subprocess number.
- ISUB=MINT(1)
- ISTSB=ISET(ISUB)
-
-C...Read out tau, y*, cos(theta), tau' (where defined, else =0).
- TAU=VINT(21)
- YST=VINT(22)
- CTH=0D0
- IF(ISTSB.EQ.2.OR.ISTSB.EQ.4) CTH=VINT(23)
- TAUP=0D0
- IF(ISTSB.GE.3.AND.ISTSB.LE.5) TAUP=VINT(26)
-
-C...Read out x_1, x_2, x_F, shat, that, uhat, p_T^2.
- X1=VINT(41)
- X2=VINT(42)
- XF=X1-X2
- SHAT=VINT(44)
- THAT=VINT(45)
- UHAT=VINT(46)
+ COMMON/PYWGHT/WGHTPOW
+ SAVE /PYDAT1/,/PYINT1/,/PYINT2/,/PYWGHT/
+ DATA P02 /25.D0/
+