[u/mrichter/AliRoot.git] / PHOS / shaker / shwdis.f

*CMZ :          17/07/98  15.49.05  by  Federico Carminati
*-- Author :
      SUBROUTINE SHWDIS
c	=================

c	Disable weak decays

*KEEP,LUDAT3.
      COMMON /LUDAT3/ MDCY(500,3),MDME(2000,2),BRAT(2000),KFDP(2000,5)
      SAVE /LUDAT3/
*KEND.

      MDCY(LUCOMP(310),1) = 0		! Disable K0s decay.

      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*CMZ : 17/07/98 15.49.05 by Federico Carminati
	2	*-- Author :
	3	SUBROUTINE SHWDIS
	4	c =================
	5
	6	c Disable weak decays
	7
	8	*KEEP,LUDAT3.
	9	COMMON /LUDAT3/ MDCY(500,3),MDME(2000,2),BRAT(2000),KFDP(2000,5)
	10	SAVE /LUDAT3/
	11	*KEND.
	12
	13	MDCY(LUCOMP(310),1) = 0 ! Disable K0s decay.
	14
	15	RETURN
	16	END