program t2
df=375.0/65536.0
do i=1,65536
w=1.0/(1.0 + ((i-32768)/26214.0)**20)
f=(i-32768)*df
write(13,1010) f,w
1010 format(2f15.6)
enddo
end program t2