1 #include "isajet/pilot.h"
3 C-----------------------------------------------------------------------
4 C Normalize branching ratios for ID
5 C-----------------------------------------------------------------------
6 #if defined(CERNLIB_IMPNONE)
9 #include "isajet/sslun.inc"
10 #include "isajet/ssmode.inc"
17 IF(ISSMOD(I).EQ.ID) GAMSUM=GAMSUM+GSSMOD(I)
19 IF(GAMSUM.EQ.0) RETURN
21 IF(ISSMOD(I).EQ.ID) BSSMOD(I)=GSSMOD(I)/GAMSUM