1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
C
C ____Demonstrates the use of sprng without initialization____ */
C A few double precision random numbers are generated, without the user */
C explicitly initializing the streams. SPRNG automatically initializes a */
C stream with default seed and parameter the first time 'sprng' is called. */
C
program simplef_simple
implicit none
#define SIMPLE_SPRNG
#include "sprng_f.h"
integer i
real*8 rn
print *, 'Printing 3 random numbers in [0,1):'
do 100 i = 1, 3
rn = sprng()
write(*,"(f8.6)") rn
100 continue
end
|
