adding a lot of grabage

BloubWorld/listbloubs.f90

@@ -0,0 +1,45 @@
+program movebloubs
+
+  use bloubspace
+  implicit none
+
+  integer, parameter       :: NB_MAX_BLOUBS = 200000
+
+! --------------------------------------------------------------
+  character(200)           :: infile
+  integer                  :: errcode, i
+  integer                  :: nbgot
+  type(t_bloubs), dimension(:), allocatable  :: bloubs
+
+  i = IARGC()
+  if (i .ne. 1) then
+    STOP ": BAD ARG ON COMMAND LINE"
+  endif
+  call getarg(1, infile)
+
+  write (0, '(A)') &
+  "*** listing bloubs from "//trim(infile)
+
+  allocate (bloubs(NB_MAX_BLOUBS), stat=errcode)
+  if (0 .NE. errcode) then
+    STOP " : NO ENOUGH MEMORY"
+  endif
+  do i = 1, NB_MAX_BLOUBS
+    bloubs(i)%alive = .FALSE.
+  enddo
+
+  call slurp_bloubs_file_in_array(trim(infile), bloubs, nbgot)
+  write(0, '(A,I6,1X,A)') "slurped ", nbgot, "bloubs"
+
+  do i=1,nbgot
+    write(6, '(A8, 1X, 1L, 1X, I2, 3X, F8.3, 3X, 3F8.3, 3X, 3F8.3)')  &
+          bloubs(i)%nick, bloubs(i)%alive,               &
+          bloubs(i)%state,                               &
+          bloubs(i)%radius,                              &
+          bloubs(i)%px, bloubs(i)%py, bloubs(i)%pz,      &
+          bloubs(i)%vx, bloubs(i)%vy, bloubs(i)%vz
+  enddo
+
+end program
+
+!                           \o_