42 lines
940 B
Fortran
42 lines
940 B
Fortran
|
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
|