16 lines
231 B
Fortran
16 lines
231 B
Fortran
program essai
|
|
|
|
use mathstuff
|
|
implicit none
|
|
|
|
integer :: foo
|
|
real :: quux
|
|
|
|
call init_random_seed()
|
|
|
|
do foo=1, 200000
|
|
quux = rand()
|
|
print *, foo, quux
|
|
enddo
|
|
|
|
end program |