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:
Ϊʲô°¡£¬»¹ÊDz»Àí½â£¬×Ó³ÌÐò²¢Ã»ÓжÔÆä²úÉúÓ°Ïì°¡£¿Çóר¼ÒÖ¸µ¼

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 Óï¾ä»¹ÊÇÖ´ÐÐÁË£¬Õâʱ£¬Á½¸ö²ÎÊý¿ÉÄÜÈ¡ÈÎÒâ½á¹û£¬µ±Õâ¸ö½á¹û±»´«µÝµ½×Ó³ÌÐòÖÐÖ®ºó£¬±ã¿ÉÄܲúÉú³öÈËÒâÁϵĽá¹û ...