no milesatone reached...

2022-02-17 14:10:15 +01:00
parent bc54e20011
commit cfc8ea6b63
7 changed files with 37 additions and 20 deletions
--- a/BloubWorld/essai.f90
+++ b/BloubWorld/essai.f90
@@ -5,12 +5,15 @@ program essai

  integer                     :: foo
  real                        :: quux
+  double precision            :: somme

  call init_random_seed()
+  somme = 0.0

  do foo=1, 200000
    quux = rand()
-    print *, foo, quux
+    somme = somme + quux
+    print *, foo, quux, somme/foo
  enddo

 end program