COSMOS v7.655  COSMOSv7655
(AirShowerMC)
mnrn15.f
Go to the documentation of this file.
1 *
2 * $Id: mnrn15.F,v 1.1.1.1 1996/03/07 14:31:31 mclareni Exp $
3 *
4 * $Log: mnrn15.F,v $
5 * Revision 1.1.1.1 1996/03/07 14:31:31 mclareni
6 * Minuit
7 *
8 *
9  SUBROUTINE mnrn15(VAL,INSEED)
10 *
11 * $Id: d506dp.inc,v 1.1.1.1 1996/03/07 14:31:32 mclareni Exp $
12 *
13 * $Log: d506dp.inc,v $
14 * Revision 1.1.1.1 1996/03/07 14:31:32 mclareni
15 * Minuit
16 *
17 *
18 *
19 *
20 * d506dp.inc
21 *
22 C ************ DOUBLE PRECISION VERSION *************
23  IMPLICIT DOUBLE PRECISION (a-h,o-z)
24 C This is a super-portable random number generator.
25 C It should not overflow on any 32-bit machine.
26 C The cycle is only ~10**9, so use with care!
27 C Note especially that VAL must not be undefined on input.
28 C Set Default Starting Seed
29  parameter(three=3.0)
30  DATA iseed/12345/
31  IF (val .EQ. three) GO TO 100
32 C
33  inseed = iseed
34  k = iseed/53668
35  iseed = 40014*(iseed-k*53668) - k*12211
36  IF (iseed .LT. 0) iseed = iseed + 2147483563
37  val = REAL(ISEED) * 4.656613E-10
38  RETURN
39 C "entry" to set seed, flag is VAL=3.
40  100 iseed = inseed
41  RETURN
42  END
parameter
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
z
nodes z
Definition: cstdatmos0.fNew2.h:93
o
struct ob o[NpMax]
Definition: Zprivate.h:34
a
nodes a
Definition: cstdatmos0.fNew2.h:93
h
dE dx *! Nuc Int sampling table h
Definition: cblkMuInt.h:130
mnrn15
subroutine mnrn15(VAL, INSEED)
Definition: mnrn15.f:10