ISAJET/isasusy/ssb0.F

   1 #include "isajet/pilot.h"
   2       COMPLEX*16 FUNCTION SSB0(QSQ,M1,M2)
   3 #if defined(CERNLIB_IMPNONE)
   4       IMPLICIT NONE
   5 #endif
   6 #include "isajet/ssinf.inc"
   7       COMPLEX*16 SSF0
   8       REAL QSQ,M1,M2
   9       SSB0=XLAM*(1.D0,0.D0)-SSF0(QSQ,M1,M2)
  10       RETURN
  11       END