diff --git a/MELA/fortran/mod_THiggs.F90 b/MELA/fortran/mod_THiggs.F90 index 4c7aebe..1041379 100644 --- a/MELA/fortran/mod_THiggs.F90 +++ b/MELA/fortran/mod_THiggs.F90 @@ -653,7 +653,7 @@ subroutine ubhtdamp(p1,p2,e3,k3,k4,e4,p5,za,zb,s,mdecay,amp) om1 = ghz1/2d0 ! this should be proper a1,a2,a3 om2 = ghz2 - om3 = ghz3 * (-1d0) ! correct buggy minus sign in Raoul's code + om3 = ghz4 * (-1d0) ! correct buggy minus sign in Raoul's code ampw(1) = + om3 * ( - 1d0/2d0*za(p5,p2)*za(e4,p1)*zb(p1,p2)*&