source: branches/start/MagicSoft/Simulation/Corsika/Mmcs/granor.f@ 10113

Last change on this file since 10113 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
3C-----------------------------------------------------------------------
4C TWO GAUSSIAN DISTRIBUTED RANDOM NUMBERS (MEAN=0, SIGMA=1)
5C
6C RANDOM NUMBER GENERATORS USED BY THE GHEISHA ROUTINES
7C ADAPTED FOR USE WITH THE CORSIKA RANDOM NUMBER GENERATORS
8C
9C DESIGN : J. KNAPP IK1 FZK KARLSRUHE
10C-----------------------------------------------------------------------
11
12 REAL RD(2)
13C-----------------------------------------------------------------------
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.