Make to work with LHAPDF

diff --git a/PYTHIA6/pythia-6.4.14.f b/PYTHIA6/pythia-6.4.14.f
index d4e9f71de528c5604b8a2617305bbbef997c1f2d..87628d8c9ec07607032b197141dfffb17d9735ce 100644 (file)
--- a/PYTHIA6/pythia-6.4.14.f
+++ b/PYTHIA6/pythia-6.4.14.f
@@ -2727,8 +2727,9 @@ C...Local arrays and character variables.
  
 C...Interface to PDFLIB.
       COMMON/W50511/NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS
-      COMMON/W50512/QCDL4,QCDL5
-      SAVE /W50511/,/W50512/
+      COMMON/LW50512/QCDL4,QCDL5
+      SAVE /W50511/
+      SAVE /LW50512/
       DOUBLE PRECISION VALUE(20),TMAS,QCDL4,QCDL5
       CHARACTER*20 PARM(20)
       DATA VALUE/20*0D0/,PARM/20*' '/
@@ -37258,8 +37259,8 @@ C...Local arrays.
       SAVE PPAR
  
 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)
@@ -38169,8 +38170,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)