[u/mrichter/AliRoot.git] / GEANT321 / miguti / randc.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:21:54  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.48  by  S.Giani
*-- Author :
#if !defined(CERNLIB_SINGLE)
      DOUBLE PRECISION FUNCTION RANDC(IDUMM)
#endif
#if defined(CERNLIB_SINGLE)
      FUNCTION RANDC(IDUMM)
#endif
C
      DIMENSION RND1(1)
C
      CALL GRNDM(RND1,1)
      RANDC = RND1(1)
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:21:54 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.48 by S.Giani
	11	*-- Author :
	12	#if !defined(CERNLIB_SINGLE)
	13	DOUBLE PRECISION FUNCTION RANDC(IDUMM)
	14	#endif
	15	#if defined(CERNLIB_SINGLE)
	16	FUNCTION RANDC(IDUMM)
	17	#endif
	18	C
	19	DIMENSION RND1(1)
	20	C
	21	CALL GRNDM(RND1,1)
	22	RANDC = RND1(1)
	23	RETURN
	24	END