HERWIG/src/hwhss1.f

   1
   2 CDECK  ID>, HWHSS1.
   3
   4 *CMZ :-        -18/05/99  20.33.45  by  Kosuke Odagiri
   5
   6 *-- Author :    Kosuke Odagiri
   7
   8 C-----------------------------------------------------------------------
   9
  10       FUNCTION HWHSS1(S, T, U, M3, M4, SGN, CLL, CLR, CRL, CRR)
  11
  12 C-----------------------------------------------------------------------
  13
  14 C     QQ(BAR) -> GAUGINOS
  15
  16 C-----------------------------------------------------------------------
  17
  18       IMPLICIT NONE
  19
  20       DOUBLE PRECISION HWHSS1, S, T, U, M3, M4, SGN
  21
  22       DOUBLE COMPLEX CLL, CLR, CRL, CRR
  23
  24       HWHSS1 = DBLE(
  25
  26      & (CONJG(CLL)*CLL+CONJG(CRR)*CRR)*(U-M3*M3)*(U-M4*M4)+
  27
  28      & (CONJG(CLR)*CLR+CONJG(CRL)*CRL)*(T-M3*M3)*(T-M4*M4)+
  29
  30      & (CONJG(CLL)*CLR+CONJG(CRL)*CRR)*2.*SGN*M3*M4*S )
  31
  32       RETURN
  33
  34       END