From fe409a67a57caa6270e1a33f6663ea29de457086 Mon Sep 17 00:00:00 2001 From: hristov Date: Sun, 26 Oct 2008 10:26:22 +0000 Subject: [PATCH] Coherent declaration of PYDAT3 and PYSSMT common blocks --- PYTHIA6/pythia6.inc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/PYTHIA6/pythia6.inc b/PYTHIA6/pythia6.inc index 2d7a4fc5abc..4355dc35018 100644 --- a/PYTHIA6/pythia6.inc +++ b/PYTHIA6/pythia6.inc @@ -31,7 +31,7 @@ C...Particle properties + some flavour parameters. 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 @@ -91,8 +91,8 @@ C...Supersymmetry parameters. 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 -- 2.43.0