|

楼主 |
发表于 2004-10-22 11:04:25
|
显示全部楼层
读文件的源代码出错部分,read语句中的11是打开文件时的编号,k是要读取的记录个数,这些都没有错,xtmp,ytmp是临时integer变量,xo,yo是real型数组,数组定义,k数值都没有错误。文件前面还有52行的说明部分都已经顺利读出,现在的文件记录指针在53行,问题就出现在这一行的后面部分。
...........do i=1,k
................. read(11,100)xtmp,ytmp
................. xo(i)=1.0*xtmp/10000
...................yo(i)=1.0*ytmp
...........end do
100 format(I7,I7)
读取文件格式
。。。。
。。。。
posit -9990000
pos2t 0
dummy 注:--------52行,循环读取从这一行的下一行开始
200100 166
200200 156
200300 155
200400 174
200500 179
200600 161
200700 181
。。。。。。
。。。。。。
999800 64
999900 65
1000000 53
1000100 51
1000200 57
1000300 54
1000400 68
1000500 67
1000600 57
1000700 68
1000800 58
1000900 42
。。。。。。。。。。。。。
。。。。。。。。。。。。。
望指教! |
|