diff -Naur POWHEG-hvq/lhapdfif.f POWHEG-hvq-new/lhapdfif.f
--- POWHEG-hvq/lhapdfif.f	2008-08-05 08:26:02.000000000 +0200
+++ POWHEG-hvq-new/lhapdfif.f	2008-08-05 08:34:08.000000000 +0200
@@ -87,6 +87,7 @@
          if(qcdl5.lt.0.001) then
             QCDL5 = 0.226d0
             QCDL4 = 0.326d0
+            xlam=qcdl5
          endif
       endif
       end
diff -Naur POWHEG-hvq/main-HERWIG.f POWHEG-hvq-new/main-HERWIG.f
--- POWHEG-hvq/main-HERWIG.f	2007-06-07 13:15:01.000000000 +0200
+++ POWHEG-hvq-new/main-HERWIG.f	2008-03-28 11:06:30.000000000 +0100
@@ -47,7 +47,7 @@
 C---FINISH EVENT
       CALL HWUFNE
 C---USER'S EVENT ANALYSIS
-      CALL analize
+      if(IERROR.eq.0) CALL analize
   100 CONTINUE
 C---TERMINATE ELEMENTARY PROCESS
       CALL HWEFIN
diff -Naur POWHEG-hvq/main-HERWIG-lhef.f POWHEG-hvq-new/main-HERWIG-lhef.f
--- POWHEG-hvq/main-HERWIG-lhef.f	2007-06-14 18:09:41.000000000 +0200
+++ POWHEG-hvq-new/main-HERWIG-lhef.f	2008-03-28 11:06:48.000000000 +0100
@@ -52,7 +52,7 @@
 C---FINISH EVENT
       CALL HWUFNE
 C---USER'S EVENT ANALYSIS
-      CALL analize
+      if(IERROR.eq.0) CALL analize
       ENDDO
  111  continue
 C---TERMINATE ELEMENTARY PROCESS
diff -Naur POWHEG-hvq/POWHEG-hvq.f POWHEG-hvq-new/POWHEG-hvq.f
--- POWHEG-hvq/POWHEG-hvq.f	2008-08-05 08:26:02.000000000 +0200
+++ POWHEG-hvq-new/POWHEG-hvq.f	2008-08-01 14:59:05.000000000 +0200
@@ -8060,7 +8060,8 @@
       implicit none
       integer iwp1,iwp2, iwm1,iwm2, iwp(5,2),iwa(4)
       real * 8 mdecwp1,mdecwp2,mdecwm1,mdecwm2
-      real * 8 probs(5,5),prbs(25),mass(16),sin2cabibbo,ebr,hbr,r,totbr
+      real * 8 probs(5,5),prbs(25),pr(5),mass(16),
+     #     sin2cabibbo,ebr,hbr,r,totbr
       equivalence (probs(1,1),prbs(1))
       integer ini,ii(5),j,k,imode
       real * 8 random,powheginput
@@ -8091,12 +8092,12 @@
          hbr=(1-3*ebr)/2
          do j=1,5
             if(ii(j).eq.0) then
-               prbs(j)=0
+               pr(j)=0
             else
                if(j.le.3) then
-                  prbs(j)=ebr
+                  pr(j)=ebr
                else
-                  prbs(j)=hbr
+                  pr(j)=hbr
                endif
             endif
          enddo
@@ -8105,7 +8106,7 @@
                if(j.eq.k.and.ii(k).lt.2) then
                   probs(j,k)=0
                else
-                  probs(j,k)=prbs(j)*prbs(k)
+                  probs(j,k)=pr(j)*pr(k)
                endif
             enddo
          enddo
@@ -8164,6 +8165,7 @@
 
 
 
+
       subroutine madeventinput
       implicit none
 c Fills HELAS common blocks for masses and couplings. The electron charge