PROGRAM ReadUnformatted

implicit none

Real, Dimension(10) :: MyData = 100.0
Real, Dimension(10) :: NewData

print *, 'My Data is: ', MyData

Open (Unit=10, File='MyDataFileUnf.dat', Form='unformatted')
Write (Unit=10) MyData
Close (Unit=10)

print *, 'Data written to file.' 

Open (Unit=10, File='MyDataFileUnf.dat', Form='unformatted')
Read (Unit=10)  NewData
Close (Unit=10)

print *, 'NewData is: ', NewData

ENDPROGRAM ReadUnformatted