 |
RFOF - RF Library for Orbit Following Codes
|
|
RFOF - RF Library for Orbit Following Codes
|
Random number generator for RFOF. More...
Public Member Functions | |
| real(8) function | rand_uniform_var0mean1 () |
| function rand_uniform_var0mean1(x) result(y) | |
| subroutine | RM48 (RVEC, LENV) |
| SUBROUTINE RM48(RVEC,LENV) | |
| real(8) function | gaussian_random_number () |
Random number generator for RFOF.
Definition at line 8 of file RFOF_random_numbers.F90.
| real(8) function RFOF_random_numbers::rand_uniform_var0mean1 | ( | ) |
function rand_uniform_var0mean1(x) result(y)
Definition at line 21 of file RFOF_random_numbers.F90.
| subroutine RFOF_random_numbers::RM48 | ( | DOUBLE PRECISION, dimension(*), dimension | RVEC, |
| INTEGER | LENV | ||
| ) |
SUBROUTINE RM48(RVEC,LENV)
Double-precision version of Universal random number generator proposed by Marsaglia and Zaman in report FSU-SCRI-87-50 based on RANMAR, modified by F. James, to generate vectors of pseudorandom numbers RVEC of length LENV, where the numbers in RVEC are numbers with at least 48-bit mantissas. Input and output entry points: RM48IN, RM48UT.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Calling sequences for RM48: CALL RM48 (RVEC, LEN) returns a vector RVEC of LEN 64-bit random floating point numbers between zero and one. CALL RM48IN(I1,N1,N2) initializes the generator from one 64-bit integer I1, and number counts N1,N2 (for initializing, set N1=N2=0, but to restart a previously generated sequence, use values output by RM48UT) CALL RM48UT(I1,N1,N2) outputs the value of the original seed and the two number counts, to be used for restarting by initializing to I1 and skipping N2*100000000+N1 numbers.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Definition at line 58 of file RFOF_random_numbers.F90.
| real(8) function RFOF_random_numbers::gaussian_random_number | ( | ) |
Definition at line 211 of file RFOF_random_numbers.F90.
