HERWIG/src/hwrlog.f

   1
   2 CDECK  ID>, HWRLOG.
   3
   4 *CMZ :-        -26/04/91  14.15.56  by  Federico Carminati
   5
   6 *-- Author :    Bryan Webber
   7
   8 C-----------------------------------------------------------------------
   9
  10       FUNCTION HWRLOG(A)
  11
  12 C-----------------------------------------------------------------------
  13
  14 C     Returns .TRUE. with probability A
  15
  16 C-----------------------------------------------------------------------
  17
  18       DOUBLE PRECISION HWR,A,R
  19
  20       LOGICAL HWRLOG
  21
  22       EXTERNAL HWR
  23
  24       HWRLOG=.TRUE.
  25
  26       R=HWR()
  27
  28       IF(R.GT.A) HWRLOG=.FALSE.
  29
  30       END