+ essai

BloubWorld/essai.f90

@@ -0,0 +1,16 @@
+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