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