open(16,file='bond_analyse.txt',status='old')
i=1
do while(.true.)
read(16,"(A50)",iostat=iso1)in_filename
read(16,"(A50)",iostat=iso1)out_filename
call bond_judge(in_filename,out_filename)
!print *, i
!print *, in_filename
!print *, out_filename
if(iso1<0)exit
i=i+2
end do
close(16)

x97_out
x98
x98_out
x99
x99_out
x100
x100_out

        2553
x100                                                                           
x100_out                                                                       
        2555
x100                                                                           
x100_out                                                                       
        2557
x100                                                                           
x100_out      
……………………

Originally posted by snoopyzhao at 2011-06-19 11:24:32:
把 if(iso1/=0)exit 放到 call 之前就没有问题了……

Originally posted by xk6891 at 2011-06-19 11:34:20:
为什么啊，还是不理解，子程序并没有对其产生影响啊？求专家指导

Originally posted by xk6891 at 2011-06-19 11:37:19:
为什么会一次又一次回去读出x100和x100_out呢，感觉顺序读取，已经走过去了，不应该再回头阿

Originally posted by snoopyzhao at 2011-06-19 13:42:22:
放在子程序之前是确保你调用时用到的参数是正确的。当 ios /= 0 时，即读到文件结束处了，但 read 语句还是执行了，这时，两个参数可能取任意结果，当这个结果被传递到子程序中之后，便可能产生出人意料的结果 ...