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
|