|
Last change
on this file was 286, checked in by harald, 25 years ago |
|
This is the start point for further developments of the Magic Monte Carlo
Simulation written by Jose Carlos Gonzales. Now it is under control of
one CVS repository for the whole collaboration. Everyone should use this
CVS repository for further developments.
|
|
File size:
656 bytes
|
| Line | |
|---|
| 1 | SUBROUTINE GRANOR(A,B)
|
|---|
| 2 |
|
|---|
| 3 | C-----------------------------------------------------------------------
|
|---|
| 4 | C TWO GAUSSIAN DISTRIBUTED RANDOM NUMBERS (MEAN=0, SIGMA=1)
|
|---|
| 5 | C
|
|---|
| 6 | C RANDOM NUMBER GENERATORS USED BY THE GHEISHA ROUTINES
|
|---|
| 7 | C ADAPTED FOR USE WITH THE CORSIKA RANDOM NUMBER GENERATORS
|
|---|
| 8 | C
|
|---|
| 9 | C DESIGN : J. KNAPP IK1 FZK KARLSRUHE
|
|---|
| 10 | C-----------------------------------------------------------------------
|
|---|
| 11 |
|
|---|
| 12 | REAL RD(2)
|
|---|
| 13 | C-----------------------------------------------------------------------
|
|---|
| 14 |
|
|---|
| 15 | CALL RMMAR(RD,2,1)
|
|---|
| 16 | U1 = SQRT(-2.*LOG(RD(1)))
|
|---|
| 17 | U2 = RD(2) * 6.28318530718
|
|---|
| 18 | A = COS(U2) * U1
|
|---|
| 19 | B = SIN(U2) * U1
|
|---|
| 20 | RETURN
|
|---|
| 21 | END
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
