Random number generator (included): Difference between revisions
Content added Content deleted
| Line 268: | Line 268: | ||
<lang fortran> |
<lang fortran> |
||
program rosetta_random |
program rosetta_random |
||
implicit none |
|||
integer, parameter :: rdp = kind(1.d0) |
integer, parameter :: rdp = kind(1.d0) |
||
real(rdp) :: num |
real(rdp) :: num |
||
integer, allocatable :: seed(:) |
integer, allocatable :: seed(:) |
||
integer :: un,n |
integer :: un,n, istat |
||
call random_seed(size = n) |
call random_seed(size = n) |
||