PROGRAM WriteToFile

implicit none

Integer :: i 
Real, Dimension(100) :: MyData = (/ (i, i=1,100) /)*273.15/100.0

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

ENDPROGRAM WriteToFile