PHOS/shaker/shwdis.f

   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