big commit before big mess

BloubWorld/bloubspace.f90

@@ -293,7 +293,6 @@ module bloubspace
   end subroutine
   ! ----------------------------------------------------------------
 
-
 end module
 
 

BloubWorld/listbloubs.f90

@@ -18,12 +18,13 @@ program movebloubs
   call getarg(1, infile)
 
   write (0, '(A)') &
-            "*** listing bloubs from "//trim(infile)
+            "***** listing bloubs from "//trim(infile)
 
   allocate (bloubs(NB_MAX_BLOUBS), stat=errcode)
   if (0 .NE. errcode) then
     STOP " : NO ENOUGH MEMORY"
   endif
+  ! run a molly-guard
   do i = 1, NB_MAX_BLOUBS
     bloubs(i)%alive = .FALSE.
   enddo
@@ -31,7 +32,7 @@ program movebloubs
   call slurp_bloubs_file_in_array(trim(infile), bloubs, nbgot)
   write(0, '(A,I6,1X,A)') "slurped ", nbgot, "bloubs"
 
-  do i=1,nbgot
+  do i=1, nbgot
     write(6, '(A8, 1X, 1L, 1X, I2, 3X, F8.3, 3X, 3F8.3, 3X, 3F8.3, 1X, I4)')  &
           bloubs(i)%nick, bloubs(i)%alive,               &
           bloubs(i)%state,                               &

BloubWorld/runme.sh

@@ -74,6 +74,7 @@ do
 	# mv ${BLBS_OUT} ${BLBS_IN}
 
 	echo
+	sleep 90
 
 done