Corrected size of PYDAT3
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 10 Apr 2013 20:04:29 +0000 (20:04 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 10 Apr 2013 20:04:29 +0000 (20:04 +0000)
DPMJET/phojet1.12-35c4.f

index 9ead718..bd2c2ef 100644 (file)
@@ -502,7 +502,7 @@ C  hard cross sections and MC selection weights
 
       INTEGER MDCY,MDME,KFDP
       DOUBLE PRECISION  BRAT
-      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 PYCOMP
 
@@ -34234,7 +34234,7 @@ C  input/output channels
 
       INTEGER MDCY,MDME,KFDP
       DOUBLE PRECISION  BRAT
-      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 PYCOMP