新手遇到问题了

program main
implicit none
integer::is,i
open(11,file='D:\cx\cw\CHIWAN93.txt')
open(12,file='D:\cx\cw\cwsj.txt')
read(11,'(F10.7)',iostat=is)
do while (is==0)
 write(12,'(F10.7)')
end do
end program main

怎么输出txt是空的 问题在哪里 在线等