24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

yazhouqin

木虫 (小有名气)

应助: 2 (幼儿园)
金币: 3474.7
红花: 1
帖子: 194
在线: 416.8小时
虫号: 725715
注册: 2009-03-18
性别: GG
专业: 岩土与基础工程

[求助] 求助已有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

» 猜你喜欢

1楼 2015-11-08 16:24:36

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

lin_tie

至尊木虫 (著名写手)

应助: 5 (幼儿园)
金币: 16583.1
红花: 6
帖子: 1176
在线: 668.1小时
虫号: 1021133
注册: 2010-05-18
性别: GG
专业: 凝聚态物性 II ：电子结构

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
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