4 *CMZ :- -26/04/91 12.42.30 by Federico Carminati
6 *-- Author : F. James, modified by Mike Seymour
8 C-----------------------------------------------------------------------
12 C-----------------------------------------------------------------------
14 C MAIN RANDOM NUMBER GENERATOR
16 C USES METHOD OF l'Ecuyer, (VIA F.JAMES, COMP PHYS COMM 60(1990)329)
18 C-----------------------------------------------------------------------
22 DOUBLE PRECISION HWRGEN,HWRSET,HWRGET
24 INTEGER I,ISEED(2),K,IZ,JSEED(2)
28 DATA ISEED/12345,67890/
32 ISEED(1)=40014*(ISEED(1)-K*53668)-K*12211
34 IF (ISEED(1).LT.0) ISEED(1)=ISEED(1)+2147483563
38 ISEED(2)=40692*(ISEED(2)-K*52774)-K*3791
40 IF (ISEED(2).LT.0) ISEED(2)=ISEED(2)+2147483399
44 IF (IZ.LT.1) IZ=IZ+2147483562
46 HWRGEN=DBLE(IZ)*4.656613001013252D-10
48 C---> (4.656613001013252D-10 = 1.D0/2147483589)
52 C-----------------------------------------------------------------------
56 C-----------------------------------------------------------------------
58 IF (JSEED(1).EQ.0.OR.JSEED(2).EQ.0) CALL HWWARN('HWRSET',99,*999)
68 C-----------------------------------------------------------------------
72 C-----------------------------------------------------------------------