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