| 查看: 537 | 回复: 1 | |||
kaokaokao789铁杆木虫 (正式写手)
|
[求助]
fortran从txt文件中读入数据的问题 已有1人参与
|
| 求助,我现在有一个txt文件,里面放着我编程要用的数据，怎么样读取数据 并对第三列的数据求和！感激不尽啊！ |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : o50.dat
2015-04-21 21:44:38, 50 M
» 猜你喜欢
考博求助
已经有3人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有5人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有9人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有10人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有6人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有9人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 在Fortran程序中，自定义打印数据列数的三种方法
已经有8人回复
- 菜鸟求助关于Fortran运算结束后怎么将结果输出保存为dat文件
已经有4人回复
- 急：求用Fortran或者其他语言编写一个程序，处理下面的数据！！！！！！！！！！
已经有37人回复
- Fortran如何读取不确定行数的数据
已经有3人回复
- 关于matlab数据写入txt文件的求助（上次发在计算模拟版，好像发的版不对，重发）
已经有5人回复
- 菜鸟求助fortran数组声明及子程序的一些问题啊
已经有4人回复
- fortran 怎么按行读取数据（有小例子）
已经有21人回复
- 用fortran怎么读.CSV文件
已经有11人回复
- ansys结果数据导出为txt文件，文件大小有限制吗
已经有8人回复
- fortran 权威指南 英文版 以及fortran的教学ppt
已经有236人回复
- fortran程序在SSH计算中心上运行的问题！
已经有13人回复
- fortran real(kind=16)
已经有10人回复
- 求助！fortran编程实现从txt中一一对应读入数据
已经有6人回复
- FORTRAN中如何实现重复读取一行？
已经有24人回复
- fortran中如何处理字符和数据混合的文件
已经有6人回复
- Fortran数据读入格式的修改
已经有5人回复
- 【求助】Fortran 如何读取文件中特定行的内容
已经有16人回复
- 【求助】matlab读取fortran输出的txt文件【已解决】
已经有3人回复
pippi6
铁杆木虫 (著名写手)
工程和科学数值计算咨询
- 应助: 413 (硕士)
- 贵宾: 0.002
- 金币: 7116.5
- 散金: 15
- 红花: 63
- 帖子: 1639
- 在线: 798.9小时
- 虫号: 2469437
- 注册: 2013-05-14
- 专业: 计算数学与科学工程计算
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
kaokaokao789: 金币+10, ★★★很有帮助, ZAN 2015-07-16 16:14:46
ben_ladeng: 金币+2, 辛苦了 2015-07-17 08:10:05
感谢参与，应助指数 +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
