adding a lot of grabage

BloubWorld/genbloubs.f90

@@ -18,22 +18,20 @@ program genbloubs
   call getarg(2, str)
   read(str,*) nbbloubs
 
-  write (0, '(A,I6,A)') &
+  write (0, '(A,I8,A)') &
   "*** generating ", nbbloubs, " bloubs to "//trim(filename)
 
-  ! print *, "generating ", nbbloubs, "bloubs to ", filename
-
-  open(newunit=idu, file=trim(filename), form='unformatted',     &
+   open(newunit=idu, file=trim(filename),            &
+                 form='unformatted',                 &
+                 access="sequential",                &
                  action='write', status='replace')
 
   do i = 1, nbbloubs
 
     bloub%nick    = 'noname  '
     bloub%num     = i + 41
-    bloub%alive   = .TRUE.
     call random_pv(bloub)
-    bloub%radius  = 0.025
-    bloub%age     = 0
+    bloub%radius  = 0.035 + (0.03*rand())
 
     write(idu) bloub              ! no error control ?