ready for another run ?

BloubWorld/movebloubs.f90

@@ -12,7 +12,7 @@ program movebloubs
   type(t_bloubs)           :: bloub
   double precision         :: bx, by, bz
   ! logical                  :: add_new_bloub = .TRUE.
-  ! real                     :: rnd
+  real                     :: rnd
 
   call init_random_seed()
 
@@ -56,6 +56,9 @@ program movebloubs
     ! moving and boundingboxing
     call move_bloub    (bloub, 0.14)
     call bound_a_blob  (bloub)
+    if (bloub%radius .GT. 0.052) then
+      bloub%radius = bloub%radius * 0.985
+    endif
     call green_soylent (bloub)
     if (.NOT. bloub%alive) then
       ! write(0, '(A)') "   KILL!"
@@ -73,21 +76,25 @@ program movebloubs
     endif
     compteur = compteur + 1
 
-  enddo
+  enddo                     ! end of main loop
+
+  write(0, '(I5,1X,A)') compteur, "bloubs processed"
 
   ! ok, we have read all the bloubs in the input file
 
   ! insert some fancy conditional here
   if (compteur .LT. 1600) then
-    if (rand() .LT. 0.05) then
-      call add_more_bloubs(outu, 8, 0.052)
+    rnd = rand()
+    write (0, '(A,1X,F5.3)') "try to add bloubs, rnd is", rnd
+    if (rnd .LT. 0.02) then
+      call add_more_bloubs(outu, 12, 0.210)
     endif
   endif
 
   close(inu)    ;    close(outu)
 
   if (killed .GT. 0) then
-    write (0, '(I5, A)') killed, " bloubs killed"
+    write (0, '(I5,A)') killed, " bloubs killed"
   endif
 
   bx = bx / dble(compteur)