Re: writing to binary




I interpreted "binary" just as unformatted.
So, if you want sort of "stream" do the following:

integer*2 i
i=17
open(unit=21,file='test.dat',access = "direct",
form='unformatted',recl=2)
do j = 1, 1000
write(unit=21, rec = i) i
enddo
close(unit=21)
end

[JvO]

.