| 查看: 1257 | 回复: 14 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
yazhouqin木虫 (小有名气)
|
[求助]
求助 已有1人参与
|
||
|
求教： 我想把J0-0.dat文件中数据读出来，编了fortran程序，但返回值为0，请大家帮忙看看，谢谢! 想读取图片中的数据 文件见附件  2015-11-8 16-22-38.jpg |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : J0-0.dat
2015-11-08 16:20:38, 42.85 K
» 猜你喜欢
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有3人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有3人回复
lin_tie
至尊木虫 (著名写手)
- 应助: 5 (幼儿园)
- 金币: 16909.6
- 红花: 6
- 帖子: 1177
- 在线: 668.3小时
- 虫号: 1021133
- 注册: 2010-05-18
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
yazhouqin: 金币+35 2015-11-10 13:26:58
yazhouqin: 金币+35 2015-11-10 13:26:58
|
程序如下： PROGRAM TIHUAN IMPLICIT NONE REAL(KIND=8) :: A(3,11) INTEGER :: I, J, POS1 CHARACTER(LEN=80) :: BUFF CHARACTER(LEN=12) :: KEY DATA KEY/"NODE FOOT-"/ OPEN(11, FILE='J0-0.DAT', STATUS='OLD') DO WHILE(.TRUE.) READ(11,'(A80)') BUFF POS1 = INDEX(BUFF, KEY) IF(POS1 /= 0) THEN EXIT END IF END DO READ(11,*) READ(11,*) DO I = 1, 11 READ(11,*) (A(J,I), J=1,3) END DO CLOSE(11) OPEN(12, FILE='CHU.OUT', STATUS='REPLACE') DO I = 1, 11 WRITE(12,'(2(E13.6))') (A(J,I),J=2,3) END DO CLOSE(12) END PROGRAM TIHUAN 运行结果如下： 0.000000E+00 0.122580E-03 -0.220210E-06-0.196940E-03 -0.202010E-04 0.122310E-03 -0.369490E-06-0.249110E-03 -0.409740E-04 0.121720E-03 0.383020E-06-0.472160E-03 0.414150E-04 0.124970E-03 0.696370E-06-0.248170E-03 0.204590E-04 0.125690E-03 0.308960E-06-0.195590E-03 0.000000E+00 0.125980E-03 |
12楼2015-11-10 12:33:45
yazhouqin
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 3413.7
- 红花: 1
- 帖子: 198
- 在线: 417小时
- 虫号: 725715
- 注册: 2009-03-18
- 性别: GG
- 专业: 岩土与基础工程
2楼2015-11-08 16:29:10
yazhouqin
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 3413.7
- 红花: 1
- 帖子: 198
- 在线: 417小时
- 虫号: 725715
- 注册: 2009-03-18
- 性别: GG
- 专业: 岩土与基础工程
3楼2015-11-08 21:43:43
yazhouqin
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 3413.7
- 红花: 1
- 帖子: 198
- 在线: 417小时
- 虫号: 725715
- 注册: 2009-03-18
- 性别: GG
- 专业: 岩土与基础工程
4楼2015-11-09 10:01:12
