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

#include "isajet/pilot.h"
      SUBROUTINE SSNORM(ID)
C-----------------------------------------------------------------------
C          Normalize branching ratios for ID
C-----------------------------------------------------------------------
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#include "isajet/sslun.inc"
#include "isajet/ssmode.inc"
C
      INTEGER ID,I
      REAL GAMSUM
C
      GAMSUM=0
      DO 100 I=1,NSSMOD
        IF(ISSMOD(I).EQ.ID) GAMSUM=GAMSUM+GSSMOD(I)
100   CONTINUE
      IF(GAMSUM.EQ.0) RETURN
      DO 200 I=1,NSSMOD
        IF(ISSMOD(I).EQ.ID) BSSMOD(I)=GSSMOD(I)/GAMSUM
200   CONTINUE
      RETURN
      END
Commit	Line	Data
0795afa3	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