no milesatone reached...

BloubWorld/movebloubs.f90

@@ -54,7 +54,7 @@ program movebloubs
     endif
 
     ! moving and boundingboxing
-    call move_bloub    (bloub, 0.15)
+    call move_bloub    (bloub, 0.14)
     call bound_a_blob  (bloub)
     call green_soylent (bloub)
     if (.NOT. bloub%alive) then
@@ -78,10 +78,10 @@ program movebloubs
   ! ok, we have read all the bloubs in the input file
 
   ! insert some fancy conditional here
-  if (compteur .LT. 1500) then
-
-    call add_more_bloubs(outu, 8, 0.075)
-
+  if (compteur .LT. 1600) then
+    if (rand() .LT. 0.05) then
+      call add_more_bloubs(outu, 8, 0.052)
+    endif
   endif
 
   close(inu)    ;    close(outu)
@@ -104,13 +104,15 @@ contains
   type(t_bloubs)             :: bloub
   integer                    :: foo
 
+  write(0, '(A,I4,1X,A)') "adding", nbre, "bloubs"
+
   do foo=1, nbre
 
     bloub%nick = 'newbie  '
-    bloub%alive = .TRUE.
     call random_pv(bloub)
     bloub%radius = wtf
-    bloub%age   = foo
+    bloub%age   = 1
+    bloub%alive = .TRUE.
     ! call display_bloub (bloub, "new bloub")
     write(un) bloub              ! no error control ?