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