ISAJET/isasusy/sszwf1.F

   1 #include "isajet/pilot.h"
   2         REAL FUNCTION SSZWF1(E)
   3 C-----------------------------------------------------------------------
   4 C          SSWZBF: ziss -> wiss f fbar
   5 C          Baer's Z2WFUN
   6 C-----------------------------------------------------------------------
   7 #if defined(CERNLIB_IMPNONE)
   8       IMPLICIT NONE
   9 #endif
  10 #include "isajet/sssm.inc"
  11 #include "isajet/sspar.inc"
  12 #include "isajet/sstmp.inc"
  13 C
  14       REAL MW,MZ,M,F1,F2,E,X,Y,WWID
  15 C
  16       MW=TMP(1)
  17       MZ=TMP(2)
  18       X=TMP(3)
  19       Y=TMP(4)
  20       M=AMW
  21       WWID=GAMW
  22 C
  23       F1=SQRT(MAX(0.,E**2-MW**2))/
  24      $((MZ**2+MW**2-M**2-2*MZ*E)**2+WWID**2*M**2)
  25       F2=(X**2+Y**2)*(3*(MZ**2+MW**2)*MZ*E-4*MZ**2*E*E-2*MZ**2*MW**2)
  26      $-3*(X**2-Y**2)*MZ*MW*(MZ**2+MW**2-2*MZ*E)
  27       SSZWF1=F1*F2
  28       RETURN
  29       END