Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
fortran-genetic-algo
!gfortran, gcc version 5.4.0 20160609 function rand_range( min, max ) result( x ) real, intent( in ) :: min, max real :: x integer :: sz integer, allocatable :: seed(:) call random_seed( size = sz ) allocate( seed( sz ) ) call random_seed( get = seed ) x = modulo( rand(), max - min ) + min end program hello print *, rand_range( 0.0, 1.0 ) end program hello
run
|
edit
|
history
|
help
0
Fyyh
New3
divisibility rule
recursive factorial
A_01 FIXED_POINT_IM(I)
Summation of 1 to 100 integer namber
A_002 THE GUASS SEIDEL
finitos
euler-cromer
G b