first bloubspace run done

BloubWorld/exportbloubs.f90

@@ -0,0 +1,41 @@
+program genbloubs
+
+  use bloubspace
+  implicit none
+
+  character(200)             :: filename
+  integer, parameter         :: idu = 33
+  integer                    :: i, compte, errcode
+  type(t_bloubs)             :: bloub
+
+  !       parsing command line
+  i = IARGC()
+  if (1 .ne. i) then
+    STOP ' :BAD COMMAND LINE'
+  endif
+  call getarg(1, filename)
+  
+  write (0, '(A, A)') "*** exporting from ", trim(filename)
+
+  open(unit=idu, file=trim(filename), form='unformatted',     &
+                 iostat=errcode,                              &
+                 action='read', status='old')
+
+  if (0 .ne. errcode) then
+    ! print *, 'errcode ', errcode
+    STOP " : CAN'T OPEN FILE " // trim(filename)
+  endif
+
+  compte=0
+  do
+    read (unit=idu, iostat=errcode) bloub
+    if (0 .ne. errcode) then
+      exit
+    endif
+    print *, bloub%px, bloub%py, bloub%pz, bloub%radius
+    compte = compte + 1
+  enddo
+  
+  close(idu)
+
+end program