integer KCHG
real*8 PMAS, PARF, VCKM
C...Decay information.
- COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5)
+ COMMON/PYDAT3/MDCY(500,3),MDME(8000,2),BRAT(8000),KFDP(8000,5)
integer MDCY, MDME, KFDP
real*8 BRAT
C...Particle names
real*8 RMSS
C...Supersymmetry mixing matrices.
COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2),
- &SFMIX(16,4)
- real*8 ZMIX, UMIX, VMIX, SMZ, SMW, SFMIX
+ &SFMIX(16,4),ZMIXI(4,4),UMIXI(2,2),VMIXI(2,2)
+ real*8 ZMIX, UMIX, VMIX, SMZ, SMW, SFMIX, ZMIXI,UMIXI,VMIXI
C...Parameters for Gauss integration of supersymmetric widths.
COMMON/PYINTS/XXM(20)
real*8 XXM