ISAJET/isasusy/ssnorm.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE SSNORM(ID)
   3 C-----------------------------------------------------------------------
   4 C          Normalize branching ratios for ID
   5 C-----------------------------------------------------------------------
   6 #if defined(CERNLIB_IMPNONE)
   7       IMPLICIT NONE
   8 #endif
   9 #include "isajet/sslun.inc"
  10 #include "isajet/ssmode.inc"
  11 C
  12       INTEGER ID,I
  13       REAL GAMSUM
  14 C
  15       GAMSUM=0
  16       DO 100 I=1,NSSMOD
  17         IF(ISSMOD(I).EQ.ID) GAMSUM=GAMSUM+GSSMOD(I)
  18 100   CONTINUE
  19       IF(GAMSUM.EQ.0) RETURN
  20       DO 200 I=1,NSSMOD
  21         IF(ISSMOD(I).EQ.ID) BSSMOD(I)=GSSMOD(I)/GAMSUM
  22 200   CONTINUE
  23       RETURN
  24       END