24小时热门版块排行榜    

查看: 403  |  回复: 1

kaokaokao789

铁杆木虫 (正式写手)

[求助] fortran从txt文件中读入数据的问题 已有1人参与

求助,我现在有一个txt文件,里面放着我编程要用的数据,怎么样读取数据  并对第三列的数据求和!感激不尽啊!
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : o50.dat
  • 2015-04-21 21:44:38, 50 M

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

howmuch
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
kaokaokao789: 金币+10, ★★★很有帮助, ZAN 2015-07-16 16:14:46
ben_ladeng: 金币+2, 辛苦了 2015-07-17 08:10:05
结果是
  i=     1048576  xx=   780331059.926095

程序如下

! flag
subroutine TestRead3
  implicit none
  real*8 :: x1,x2,x3,xx
  integer :: i
  open(20,file='o50.dat',status='old')
  xx=0d0
  i=0
  do
     read(20,*,end=8341) x1,x2,x3
     i=i+1
     xx=xx+x3
  end do
8341 continue
  close(20)
  print*,' i=',i,' xx=',xx
  stop

end subroutine TestRead3
2楼2015-04-22 00:07:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 kaokaokao789 的主题更新
信息提示
请填处理意见