1 #include "isajet/pilot.h"
2 SUBROUTINE SSME3(KTYP,AM,ZI,ZF)
4 C Give matrix element data for mode most recently saved by
5 C SSSAVE. Call this once for each pole in the matrix element,
6 C giving the pole type, mass, and couplings. See /DKYSS3/
9 C Assumes SUSY decay product is always FIRST.
11 #if defined(CERNLIB_IMPNONE)
15 #include "isajet/sslun.inc"
16 #include "isajet/ssmode.inc"
17 #include "isajet/dkyss3.inc"
23 C If last SSSAVE failed, then skip the matrix element
25 IF(.NOT.LSSMOD) RETURN
27 C If MSSMOD(NSSMOD)=0, have not booked any poles yet for
28 C last mode saved. Increment mode counter, and set initial and
29 C final poles to next one.
31 IF(MSSMOD(NSSMOD).EQ.0) THEN
33 IF(NMSS3.GT.MXMSS3) THEN
34 WRITE(LOUT,*) 'ERROR IN SSME3...TOO MANY MODES=',NMSS3
43 C Add pole to list and set second counter to last pole
46 IF(NPSS3.GT.MXPSS3) THEN
47 WRITE(LOUT,*) 'ERROR IN SSME3...TOO MANY POLES=',NPSS3