PROGRAM WriteToFile

implicit none

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

MyData(10) = 10.0/0.0
MyData(11) = 9999.0
MyData(12) = 2.81**500
MyData(13) = 0.0/0.0

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

ENDPROGRAM WriteToFile