Anonymous user
Random number generator (included): Difference between revisions
m
→{{header|Fortran}}
Line 268:
<lang fortran>
program rosetta_random
implicit none
integer, parameter :: rdp = kind(1.d0)
real(rdp) :: num
integer, allocatable :: seed(:)
integer :: un,n, istat
call random_seed(size = n)
|