reading binary file!!

[mikibelavista]

character*72 ifname,ofname
write(*, fmt="(/'Enter input file name')")
read(5,85) ifname
85 format(a72)
write(*, fmt="(/'Enter output file name')")
read(5,85) ofname
open(unit=11, file=ifname, form='unformatted', status='old')
open(unit=12, file=ofname)
n=0
100 read(11, end=999) x,y,z,t,u,i
write(12,5) x,y,z,t,u,i
5 format(5f10.3,i3)
n=n+1
go to 100
c
999 write(6,1) n
1 format(/'number of lines in file: ',i10/)

stop
end

I want to translate code above into FORTRAN 90 code.Ideas?

 

[mikrom]

I want to translate code above into FORTRAN 90 code.Ideas?

And what is the problem ?
If you delete this

go to 100
[highlight]c[/highlight]
999 write(6,1) n

then it compiles. Other thing is if it will work...

 

[mikibelavista]

Ok,I will try now.