read用法

skycuicui2012 · 发表于 2012-11-20 22:30:51

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

read(10,'(G1.0)'advance='no',end=100)
可以这么用read么？谢谢！

program main
implicit none
real line
integer i
i=0
open(10,file='topmad.txt',status='old')
open(11,file='bottom.txt',status='unknown')
do while (.true.)
read(10,'(G1.0)',advance='no',end=100) line
write(11,*) line
i=i+1
enddo
100 continue
end

言深深 · 发表于 2012-11-20 22:48:26

advance=no表示不会车，不着知道楼主想做什么，要是打算输出数据行数的话，可以参考http://bbs.06climate.com/forum.php?mod=viewthread&tid=976

topmad · 发表于 2012-11-21 14:21:51

看看书，上面说的很明白的这些基本的东西查一下书就有了或许还有其他收获

		自动登录	找回密码
密码			立即注册

[求助] read用法

登录后查看更多精彩内容~