ISAJET/code/wwtt.F

   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).
   4 C          SQUARE OF T GRAPH.
   5 #include "isajet/itapes.inc"
   6 #include "isajet/wwpar.inc"
   7 #if defined(CERNLIB_DOUBLE)
   8       DOUBLE PRECISION WWTT
   9       DOUBLE PRECISION T,U,T1,U1,T3,U3
  10 #endif
  11       WWTT=
  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
  18       WWTT=2.*WWTT
  19       RETURN
  20       END