--- src/mclibs/herwig/code/hwhiga.F.old	2005-06-24 09:45:07.000000000 +0200
+++ src/mclibs/herwig/code/hwhiga.F	2005-06-24 10:11:59.000000000 +0200
@@ -73,7 +73,7 @@
       TAMP(7)=HWHIG5(U,T,S,EMH2,EMQ2,3,0,6,0,0,0)
       DO 20 I=1,7
       TAMPI(I)= DBLE(TAMP(I))
-  20  TAMPR(I)=-IMAG(TAMP(I))
+  20  TAMPR(I)=-DIMAG(TAMP(I))
 C Square and add prefactors
       WTGG=0.03125*FLOAT(NCOLO*(NCOLO**2-1))
      &    *(TAMPR(1)**2+TAMPI(1)**2+TAMPR(2)**2+TAMPI(2)**2