ISAJET/isasusy/sswzf6.F

   1 #include "isajet/pilot.h"
   2         REAL FUNCTION SSWZF6(EE)
   3 C-----------------------------------------------------------------------
   4 C          SSWZBF: wiss -> zjss f fbar
   5 C          Drees' function for charged Higgs exchange
   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 EE
  15       DOUBLE PRECISION E,MW,MZ,MH,AL,BE,SN,RES
  16 C
  17       E=EE
  18       MW=TMP(1)
  19       MH=TMP(2)
  20       MZ=TMP(3)
  21       AL=TMP(4)
  22       BE=TMP(5)
  23       SN=TMP(6)
  24 C
  25       RES=SQRT(E**2-MZ**2)*(MW**2+MZ**2-2*MW*E)*
  26      ,(E*(AL**2+BE**2)+2*SN*MZ*AL*BE)/
  27      ,(MW**2+MZ**2-2*MW*E-MH**2)**2
  28       SSWZF6=RES
  29       RETURN
  30       END