1 #include "isajet/pilot.h"
2 FUNCTION WWTT(T,U,T1,U1,T3,U3)
3 C DECAY DISTRIBUTION FOR W+ W- PAIRS FROM SCHOONSCHIP(1980).
5 #include "isajet/itapes.inc"
6 #include "isajet/wwpar.inc"
7 #if defined(CERNLIB_DOUBLE)
9 DOUBLE PRECISION T,U,T1,U1,T3,U3
12 1(+CQ**2*(-512.*T1**2*T3**2)
13 1 +CQ**2*T*(-512.*T1*U1*T3-512.*T1*T3*S13+512.*T1*T3**2)
14 1 +CQ**2*T*WM2*(-512.*U1*T3-512.*T3*S13+512.*T3**2)
15 1 +CQ**2*T**2*(512.*U1*T3+512.*T3*S13)
16 1 +CQ**2*WM2*(-1024.*T1*T3**2)
17 1 +CQ**2*WM2**2*(-512.*T3**2))/T**2