Merging the VirtualMC branch to the main development branch (HEAD)

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgens / wntgs / rndm.F

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgens/wntgs/rndm.F b/MINICERN/packlib/kernlib/kerngen/tcgens/wntgs/rndm.F
deleted file mode 100644 (file)
index 9579689..0000000
--- a/MINICERN/packlib/kernlib/kerngen/tcgens/wntgs/rndm.F
+++ /dev/null
@@ -1,66 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1  1997/02/04 17:36:29  mclareni
-* Merge Winnt and 97a versions
-*
-* Revision 1.1.1.1  1996/02/15 17:50:24  mclareni
-* Kernlib
-*
-*
-      FUNCTION RNDM (ISEED)
-C 
-C CERN PROGLIB# V104    RNDM            .VERSION KERNDOS  1.00  920624
-C ORIG. 22-MAR-88 from IBM version of G.Marsaglia et al., Montreal
-C MODIF 24/06/92, adapted N.Karpenko, Dubna
-C
-C     !!!   Version valid only for 32 bit machines   !!!
-C     !!!   with IEEE floating point representation  !!!
-C
-C-    Uniform Random Number Generator,
-C-    giving the same sequence as the IBM and VAX version
-
-      EQUIVALENCE (AMAN,MANT)
-      PARAMETER    (MSK1 = 201326592)
-      PARAMETER    (MSK2 = 855638016)
-C     PARAMETER    (MSK1 = '0C000000'X)
-C     PARAMETER    (MSK2 = '33000000'X)
-       COMMON /MCGN/ MCGN
-      DATA  MCGN  /12345/
-
-
-      MCGN = MCGN * 69069
-      MANT = ISHFT (MCGN,-8)
-      IF (MANT.EQ.0)         GO TO 14
-      AMAN = MANT
-C-    AMAN in the range 1 to 2**24-1
-      MANT = MANT - MSK1
-C-    multiply by 2.**(-24)
-      RNDM = AMAN
-      RETURN
-
-C--   for zero set RNDM = 2.**(-25)
-   14 MANT = MSK2
-      RNDM = AMAN
-      RETURN
-        END
-        FUNCTION IRNDM(ISEEK)
-        COMMON /MCGN/ MCGN
-
-C--       Integer random number
-      MCGN  = MCGN * 69069
-      IRNDM = ISHFT (MCGN,-1)
-      RETURN
-        END
-        SUBROUTINE RDMIN(ISEED)
-        COMMON /MCGN/ MCGN
-
-C--       Set the seed
-      MCGN = ISEED
-      RETURN
-
-C--       Get the seed
-      ENTRY RDMOUT (ISEED)
-      ISEED = MCGN
-      END