/usr/share/doc/libsprng2-doc/EXAMPLES/simplef-simple.F is in libsprng2-doc 2.0a-8.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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
|