CDECK  ID>, HWRGAU.

*CMZ :-        -19/05/99  11.11.56  by  Mike Seymour

*-- Author :    Mike Seymour

C-----------------------------------------------------------------------

      FUNCTION HWRGAU(J,A,B)

C-----------------------------------------------------------------------

C     Gaussian random number, mean A, standard deviation B.

C     Generates uncorrelated pairs and throws one of them away.

C-----------------------------------------------------------------------

      INCLUDE 'HERWIG61.INC'

      DOUBLE PRECISION HWRGAU,HWR,A,B,X,TRASH

      INTEGER J

      EXTERNAL HWR

 10   X=HWR()

      IF (X.LE.ZERO.OR.X.GT.ONE) GOTO 10

      X=SQRT(-TWO*LOG(X))

      CALL HWRAZM(X,X,TRASH)

      HWRGAU=A+B*X

      END