CDECK  ID>, HWRLOG.

*CMZ :-        -26/04/91  14.15.56  by  Federico Carminati

*-- Author :    Bryan Webber

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

      FUNCTION HWRLOG(A)

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

C     Returns .TRUE. with probability A

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

      DOUBLE PRECISION HWR,A,R

      LOGICAL HWRLOG

      EXTERNAL HWR

      HWRLOG=.TRUE.

      R=HWR()

      IF(R.GT.A) HWRLOG=.FALSE.

      END