mnrn15.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	mnrn15 (VAL, INSEED)

Function/Subroutine Documentation

mnrn15()

subroutine mnrn15	(		VAL,
			INSEED
	)

Definition at line 10 of file mnrn15.f.

References a, h, o, parameter(), and z.

Referenced by mnexcm(), mnimpr(), mnseek(), and mnset().

*
* $Id: d506dp.inc,v 1.1.1.1 1996/03/07 14:31:32 mclareni Exp $
*
* $Log: d506dp.inc,v $
* Revision 1.1.1.1  1996/03/07 14:31:32  mclareni
* Minuit
*
*
*
*
* d506dp.inc
*
C ************ DOUBLE PRECISION VERSION *************
      IMPLICIT DOUBLE PRECISION (a-h,o-z)
C         This is a super-portable random number generator.
C         It should not overflow on any 32-bit machine.
C         The cycle is only ~10**9, so use with care!
C         Note especially that VAL must not be undefined on input.
C                    Set Default Starting Seed
      parameter(three=3.0)
      DATA iseed/12345/
      IF (val .EQ. three)  GO TO 100
C
      inseed = iseed
      k = iseed/53668
      iseed = 40014*(iseed-k*53668) - k*12211
      IF (iseed .LT. 0) iseed = iseed + 2147483563
      val = REAL(ISEED) * 4.656613e-10
      RETURN
C               "entry" to set seed, flag is VAL=3.
  100 iseed = inseed
      RETURN

Here is the call graph for this function:

Here is the caller graph for this function: