[u/mrichter/AliRoot.git] / HERWIG / src / hwruni.f


CDECK  ID>, HWRUNI.

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

*-- Author :    Bryan Webber

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

      FUNCTION HWRUNI(I,A,B)

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

C     Uniform random random number in range [A,B]

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

      DOUBLE PRECISION HWRUNI,HWR,A,B,RN

      INTEGER I

      EXTERNAL HWR

      RN=HWR()

      HWRUNI=A+RN*(B-A)

      END
Commit	Line	Data
3820ca8e	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