PROGRAM ReadFromFile

implicit none

Real, Dimension(100) :: MyData

Open (Unit=10, File='MyDataFile.txt', Form='Formatted')
Read (Unit=10, FMT='(f10.2)')  MyData
Close (Unit=10)

print *, MyData

ENDPROGRAM ReadFromFile