system_rand(3f) - [M_system:PSEUDORANDOM] call pseudo-random number generator rand(3c) (LICENSE:PD)
Synopsis
Description
Example
integer(kind=c_int) :: function system_rand()
Use rand(3c) to generate pseudo-random numbers.
Sample program:
program demo_system_rand use M_system, only : system_srand, system_rand implicit none integer :: iexpected results:call system_srand(1001) do i=1,10 write(*,*)system_rand() enddo write(*,*)
end program demo_system_rand
1512084687 1329390995 1874040748 60731048 239808950 2017891911 22055588 1105177318 347750200 17296453551512084687 1329390995 1874040748 60731048 239808950 2017891911 22055588 1105177318 347750200 1729645355
system_rand (3) | March 11, 2021 |