HERWIG/src/hwruni.f

   1
   2 CDECK  ID>, HWRUNI.
   3
   4 *CMZ :-        -26/04/91  14.55.45  by  Federico Carminati
   5
   6 *-- Author :    Bryan Webber
   7
   8 C-----------------------------------------------------------------------
   9
  10       FUNCTION HWRUNI(I,A,B)
  11
  12 C-----------------------------------------------------------------------
  13
  14 C     Uniform random random number in range [A,B]
  15
  16 C-----------------------------------------------------------------------
  17
  18       DOUBLE PRECISION HWRUNI,HWR,A,B,RN
  19
  20       INTEGER I
  21
  22       EXTERNAL HWR
  23
  24       RN=HWR()
  25
  26       HWRUNI=A+RN*(B-A)
  27
  28       END