naptime reached

2026-09-20 10:47:43 +02:00
parent d7da858380
commit d8e3d1c01b
12 changed files with 35 additions and 39 deletions
@@ -48,9 +48,9 @@ program movebloubs
  compteur = 0
  killed   = 0

-!-
+!-		----------------
 !		begin of bigloop
-!-
+!-		----------------
  do
    read (unit=inu, iostat=errcode) bloub
    if (0 .ne. errcode) then
@@ -99,16 +99,16 @@ program movebloubs

  ! insert some fancy conditional here for adding new
  ! bloubs to the bloubiverse
-  if (compteur .LT. 180) then
+  if (compteur .LT. 333) then
    write (0, *) '... rearmement demographique ...'
-    call add_more_bloubs(outu, 19, 0.046)
+    call add_more_bloubs(outu, 42, 0.046)
  endif

  rnd = rand()
  ! write(0, *) 'rnd= ', rnd
-  if (rnd .LT. 0.18) then
+  if (rnd .LT. 0.22) then
    write (0, *) '... the random of life ...'
-    call add_more_bloubs(outu, 15, 0.056)
+    call add_more_bloubs(outu, 19, 0.056)
  endif

  close(inu)    ;    close(outu)