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

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