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
Recursive fibonacci
Inverse matric
IF GO TO
Matrix 3×3
I m
A_03 practice 2(ii)
Practice
Practice 3
New3
A