4 *CMZ :- -26/04/91 14.15.56 by Federico Carminati
6 *-- Author : Bryan Webber
8 C-----------------------------------------------------------------------
12 C-----------------------------------------------------------------------
14 C Returns .TRUE. with probability A
16 C-----------------------------------------------------------------------
18 DOUBLE PRECISION HWR,A,R
28 IF(R.GT.A) HWRLOG=.FALSE.