今天有一笔资料,总之我目前得先算出他的行数
再用来当作可变阵列的维度来读档
先用这个
DO WHILE (.true.) !iostat:读取正常=0就是了
READ(unit=20,fmt=*,iostat=state)temp_string
PRINT*,temp_string,state
IF( state/=0 )EXIT
source=source+1
END DO
回报source = 72494
结果下面要读档的时候表示 end of reading
以为行数没读对,于是回头去确认,打开vi看
资料的确是72494行..
于是在读档循环中加一行让他把目前进行到第几圈print出来
72422
72423
72424
72425
72426
forrtl: severe (24): end-of-file during read, unit 20,
因为我是放在循环的最后,所以应该是读完72426,在要读72427的时候出错
请问一下是怎么回事囧....?
原始码
http://freakshare.com/files/a8fuusx8/Text2.for.html
资料
http://freakshare.com/files/rv6cuk20/ted71pointfinally.txt.html