first bloubspace run done

BloubWorld/genbloubs.f90

@@ -0,0 +1,43 @@
+program genbloubs
+
+  use bloubspace
+
+  integer               :: nbbloubs
+  integer               :: i
+  character(200)        :: filename
+  character(30)         :: str
+  type(t_bloubs)        :: bloub
+
+  integer, parameter    :: idu = 33
+
+  i = IARGC()
+  if (i .ne. 2) then
+    STOP ": BAD ARGS ON COMMAND LINE"
+  endif
+
+  call getarg(1, filename)
+  call getarg(2, str)
+  read(str,*) nbbloubs
+
+  write (0, '(A,I6,A)') &
+  "*** generating ", nbbloubs, " bloubs to "//trim(filename)
+
+  ! print *, "generating ", nbbloubs, "bloubs to ", filename
+
+  open(unit=idu, file=trim(filename), form='unformatted',     &
+                 action='write', status='replace')
+
+  do i = 1, nbbloubs
+    bloub%nick = 'noname  '
+    bloub%alive = .TRUE.
+    call random_pv(bloub)
+    bloub%radius = 0.009999
+    bloub%seq    = 0
+
+    write(idu) bloub              ! no error control ?
+
+  end do
+
+  close(unit=idu)
+
+end program