24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 448  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 327求调剂 +13 Xxjc1107. 2026-04-13 13/650 2026-04-13 18:50 by lbsjt
[考研] 085600材料与化工329分求调剂 +11 叶zilin 2026-04-13 12/600 2026-04-13 18:44 by Charon.lp
[考研] 人工智能320调剂08工类还有机会吗 +15 振—TZ 2026-04-10 16/800 2026-04-13 14:11 by 张zhihao
[材料工程] 材料调剂推荐 +9 蛋糕x2 2026-04-07 9/450 2026-04-13 09:07 by lhj2009
[考研] 求调剂 +9 吃口冰激凌 2026-04-07 9/450 2026-04-13 08:46 by 紫曦紫棋
[考研] 307求调剂 +10 tzq94092 2026-04-10 10/500 2026-04-12 08:18 by wise999
[考研] 343求调剂 +9 王国帅 2026-04-10 9/450 2026-04-11 20:31 by dongdian1
[考研] 080100力学316求调剂 +8 L_Hairui 2026-04-07 8/400 2026-04-11 10:00 by zhq0425
[考研] 311求调剂 +13 xyp想读书 2026-04-10 14/700 2026-04-11 09:41 by 猪会飞
[考研] 342电子信息专硕求调剂 +9 你让我怎么荔枝 2026-04-10 10/500 2026-04-11 08:33 by zhq0425
[考研] 一志愿京区985,085401电子信息,本科电子信息 +3 阳光开朗的男孩 2026-04-10 3/150 2026-04-10 16:29 by sophia_93
[考研] 一志愿华东师范生物学326分,求调剂 +8 刘墨墨 2026-04-09 8/400 2026-04-10 12:00 by pengliang8036
[考研] 材料专硕调剂 +16 哈哈哈吼吼吼哈 2026-04-07 17/850 2026-04-09 21:16 by wutongshun
[考研] 调剂 +12 月@163.com 2026-04-08 12/600 2026-04-09 14:27 by rl1980
[考研] 求调剂 +13 柒luck 2026-04-07 13/650 2026-04-08 22:46 by 猪会飞
[考研] 生物学学硕,初试351分,求调剂 +4 …~、王…~ 2026-04-08 5/250 2026-04-08 21:49 by limeifeng
[考研] 考研求调剂 +4 雯??? 2026-04-08 4/200 2026-04-08 21:44 by 土木硕士招生
[考研] 264求调剂 +11 麦小叮当 2026-04-07 11/550 2026-04-08 16:05 by 一只好果子?
[考研] 调剂求助(生物与医药) +6 @6952 2026-04-06 6/300 2026-04-07 23:52 by lys0704
[考研] 22408 调剂材料 +7 我叫ez 2026-04-06 8/400 2026-04-07 17:12 by 蓝云思雨
信息提示
请填处理意见