4 *CMZ :- -19/05/99 11.11.56 by Mike Seymour
6 *-- Author : Mike Seymour
8 C-----------------------------------------------------------------------
10 FUNCTION HWRGAU(J,A,B)
12 C-----------------------------------------------------------------------
14 C Gaussian random number, mean A, standard deviation B.
16 C Generates uncorrelated pairs and throws one of them away.
18 C-----------------------------------------------------------------------
20 INCLUDE 'HERWIG61.INC'
22 DOUBLE PRECISION HWRGAU,HWR,A,B,X,TRASH
30 IF (X.LE.ZERO.OR.X.GT.ONE) GOTO 10
34 CALL HWRAZM(X,X,TRASH)