[u/mrichter/AliRoot.git] / ISAJET / isasusy / ssb0.F

#include "isajet/pilot.h"
      COMPLEX*16 FUNCTION SSB0(QSQ,M1,M2)
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#include "isajet/ssinf.inc"
      COMPLEX*16 SSF0
      REAL QSQ,M1,M2
      SSB0=XLAM*(1.D0,0.D0)-SSF0(QSQ,M1,M2)
      RETURN
      END
Commit	Line	Data
0795afa3	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