fortran文件读数组，为什么运行不了

mqdlf0000

PROGRAM HH
IMPLICIT NONE

INTEGER X1(20000)
INTEGER X2(20000)
INTEGER X3(20000)
INTEGER X4(20000)
INTEGER X5(20000)
INTEGER X6(20000)
INTEGER X7(20000)
INTEGER X8(20000)
INTEGER X9(20000)
INTEGER i,k

i=0  
open(9,file='F:\data\1.txt',status='old')
do while(.not. eof(9))   
  read( 9 , * ) X1(i),X2(i),X3(i),X4(i),X5(i),X6(i),X7(i),X8(i),X9(i)
  i=i+1
  k=i           
end do
close(9)


open(2,FILE='F:\data\hah1\123.TXT')
do i = 1, k
WRITE(2,*) X1(i)
end do
CLOSE(2)
END

lqouc

楼上说的对
另外请楼主以后提问的时候附上相关报错信息，方便别人帮你解决问题。

mqdlf0000

读入这样的数据56038  1982  1  1  -144  -14  32766  -254  32766  
56038  1982  1  2  -128  -10  32766  -245  32766  
56038  1982  1  3  -105  -34  32766  -166  32766  
56038  1982  1  4  -113  -11  32766  -237  32766  
56038  1982  1  5  -119  8  32766  -209  32766  
56038  1982  1  6  -95  -48  32766  -151  32766  
56038  1982  1  7  -155  -40  32766  -247  32766  
56038  1982  1  8  -115  -60  32766  -171  32766  
56038  1982  1  9  -172  -22  32766  -264  32766  
56038  1982  1  10  -145  15  32766  -233  32766  
56038  1982  1  11  -109  10  32766  -210  32766  
56038  1982  1  12  -96  -42  32766  -154  32766  

季报台风

准备学习这个了啊 。。。。。。。

四叶草

楼主，你把
i=0 改为 i=1 试试

mqdlf0000

不好意思，我是新人。

mqdlf0000

lqouc 发表于 2015-12-17 13:59
楼上说的对
另外请楼主以后提问的时候附上相关报错信息，方便别人帮你解决问题。

谢谢指点，我弄好了

mqdlf0000

四叶草 发表于 2015-12-17 12:56
楼主，你把
i=0 改为 i=1 试试

谢谢指点，我会了

四叶草

mqdlf0000 发表于 2015-12-17 22:44
谢谢指点，我会了

恭喜恭喜！

王磊

以后错误可以先百度下，这个end of file during read网上应该是有解释的