[u/mrichter/AliRoot.git] / GEANT321 / gheisha / ranres.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:57  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.38  by  S.Giani
*-- Author :
      FUNCTION RANRES(X)
C
C *** RESTRICTED RANDOM NUMBERS TO BE USED AS ARGUMENT IN LOG ETC... ***
C *** NVE 13-JUL-1988 CERN GENEVA ***
C
C NOTE : 0 < RANRES < 1
      DIMENSION RNDM(1)
C
 1    CONTINUE
      CALL GRNDM(RNDM,1)
      RANRES=RNDM(1)
      IF ((RANRES .LE. 0.) .OR. (RANRES .GE. 1.)) GO TO 1
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:57 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.38 by S.Giani
	11	*-- Author :
	12	FUNCTION RANRES(X)
	13	C
	14	C * RESTRICTED RANDOM NUMBERS TO BE USED AS ARGUMENT IN LOG ETC... *
	15	C * NVE 13-JUL-1988 CERN GENEVA *
	16	C
	17	C NOTE : 0 < RANRES < 1
	18	DIMENSION RNDM(1)
	19	C
	20	1 CONTINUE
	21	CALL GRNDM(RNDM,1)
	22	RANRES=RNDM(1)
	23	IF ((RANRES .LE. 0.) .OR. (RANRES .GE. 1.)) GO TO 1
	24	RETURN
	25	END