printing benchmark message only if input contains clusters

[u/mrichter/AliRoot.git] / PYTHIA6 / pythia6214.f

diff --git a/PYTHIA6/pythia6214.f b/PYTHIA6/pythia6214.f
index 22f08da1492a3dc6f93ffa8623e6bbb95dc767cd..6deccbf2e1a11fb229a1536ea9da8c0cd0386ac2 100644 (file)
--- a/PYTHIA6/pythia6214.f
+++ b/PYTHIA6/pythia6214.f
@@ -2563,8 +2563,8 @@ C...Local arrays and character variables.
       CHARACTER CHFRAM*12,CHBEAM*12,CHTARG*12,CHLH(2)*6
  
 C...Interface to PDFLIB.
-      COMMON/W50512/QCDL4,QCDL5
-      SAVE /W50512/
+      COMMON/LW50512/QCDL4,QCDL5
+      SAVE /LW50512/
       DOUBLE PRECISION VALUE(20),QCDL4,QCDL5
       CHARACTER*20 PARM(20)
       DATA VALUE/20*0D0/,PARM/20*' '/
@@ -27692,8 +27692,8 @@ C...Local arrays.
      &XPPI(-6:6),XPPR(-6:6)
  
 C...Interface to PDFLIB.
-      COMMON/W50513/XMIN,XMAX,Q2MIN,Q2MAX
-      SAVE /W50513/
+      COMMON/LW50513/XMIN,XMAX,Q2MIN,Q2MAX
+      SAVE /LW50513/
       DOUBLE PRECISION XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU,
      &VALUE(20),XMIN,XMAX,Q2MIN,Q2MAX
       CHARACTER*20 PARM(20)
@@ -28358,8 +28358,8 @@ C...Local arrays.
       DIMENSION XPEL(-25:25),XPGA(-6:6),SXP(0:6)
  
 C...Interface to PDFLIB.
-      COMMON/W50513/XMIN,XMAX,Q2MIN,Q2MAX
-      SAVE /W50513/
+      COMMON/LW50513/XMIN,XMAX,Q2MIN,Q2MAX
+      SAVE /LW50513/
       DOUBLE PRECISION XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU,
      &VALUE(20),XMIN,XMAX,Q2MIN,Q2MAX
       CHARACTER*20 PARM(20)
@@ -45412,7 +45412,6 @@ C...Commonblocks.
       SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/,/PYINT4/
 C...Local array.
       DIMENSION PS(2,6),IJOIN(100)
- 
 C...Initialize and reset.
       MSTU(24)=0
       IF(MSTU(12).GE.1) CALL PYLIST(0)