Call to LHAPDF initialisation via pdfset_herwig
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 3 Dec 2008 07:44:18 +0000 (07:44 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 3 Dec 2008 07:44:18 +0000 (07:44 +0000)
HERWIG/herwig6510.f

index 4c8de23..1111318 100644 (file)
@@ -47262,7 +47262,7 @@ C---FIX TO CALL SCHULER-SJOSTRAND CODE
             IF(PARM(1).NE.PARMSAVE.OR.VAL(1).NE.VALSAVE)THEN
               PARMSAVE=PARM(1)
               VALSAVE=VAL(1)
-              CALL PDFSET(PARM,VAL)
+              CALL PDFSET_HERWIG(PARM,VAL)
             ENDIF
             IF (X.LT.PDFXMN.AND.PDFWRX(IBEAM,1) .OR.
      &          X.GT.PDFXMX.AND.PDFWRX(IBEAM,2)) THEN
@@ -47362,7 +47362,7 @@ C---USE PDFLIB NUCLEON STRUCTURE FUNCTIONS
         IF(PARM(1).NE.PARMSAVE.OR.VAL(1).NE.VALSAVE)THEN
           PARMSAVE=PARM(1)
           VALSAVE=VAL(1)
-          CALL PDFSET(PARM,VAL)
+          CALL PDFSET_HERWIG(PARM,VAL)
         ENDIF
         IF (X.LT.PDFXMN.AND.PDFWRX(IBEAM,1) .OR.
      &      X.GT.PDFXMX.AND.PDFWRX(IBEAM,2)) THEN
@@ -61367,7 +61367,7 @@ C---FIX TO CALL SCHULER-SJOSTRAND CODE
               WRITE (6,'(10X,A)') 'THEIR WISHES.  SSph NO LONGER WORKS'
               STOP
             ELSE
-              CALL PDFSET(PARM,VAL)
+              CALL PDFSET_HERWIG(PARM,VAL)
               CALL STRUCTM(X,QSCA,UPV,DNV,USEA,DSEA,STR,CHM,BTM,TOP,GLU)
             ENDIF
           ENDIF