应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 求助
152/2返回列表上一页12
查看: 1245  |  回复: 14
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

yazhouqin

木虫 (小有名气)
我要读取下图中11个数据，那位老师能指导一下
求助
2015-11-10 10-30-13.jpg
赞一下 回复此楼
ok
11楼2015-11-10 10:37:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lin_tie

至尊木虫 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yanshuiting

新虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
如果你这个数据是某个软件，生成的话，应该是比较规范的格式数据。你可以把字符数据去掉，直接复制数据数据，到excel中粘贴，之后就好操作了

发自小木虫Android客户端
赞一下 回复此楼
13楼2015-11-10 12:48:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yazhouqin

木虫 (小有名气)
引用回帖:
12楼: Originally posted by lin_tie at 2015-11-10 12:33:45
程序如下：
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 ...

兄弟你太牛了，这东西我搞3/4天了，太谢谢了
赞一下 回复此楼
ok
14楼2015-11-10 13:26:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yazhouqin

木虫 (小有名气)
引用回帖:
12楼: Originally posted by lin_tie at 2015-11-10 12:33:45
程序如下：
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 ...

分全给你了，谢谢
回复此楼
ok
15楼2015-11-10 13:27:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yazhouqin 的主题更新
152/2返回列表上一页12
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +6 zSbvVX9JFl9J 2026-11-09 9/450 2026-11-13 11:13 by Equinoxhua
[考研] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +5 C6CRn66RYYXS 2026-11-10 6/300 2026-11-13 11:04 by Equinoxhua
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +5 C6CRn66RYYXS 2026-11-10 9/450 2026-11-13 11:02 by Equinoxhua
[考博] 27博士申请（市政/环境） +3 ladf 2026-11-12 3/150 2026-11-13 08:19 by Equinoxhua
[公派出国] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 TgvkbZZl9tqB 2026-11-11 4/200 2026-11-12 12:51 by ECLTXnJnRSXf
[考博] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 cdqGD6ftHmbl 2026-11-11 5/250 2026-11-12 12:28 by ECLTXnJnRSXf
[考研] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +5 Z7qfCsdIiD1T 2026-11-10 8/400 2026-11-12 11:22 by HajghKOMynmz
[基金申请] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +5 czAiolzR0IJC 2026-11-10 9/450 2026-11-12 11:11 by HajghKOMynmz
[考研] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +5 czAiolzR0IJC 2026-11-10 6/300 2026-11-12 11:03 by HajghKOMynmz
[硕博家园] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +4 czAiolzR0IJC 2026-11-10 8/400 2026-11-12 10:49 by HajghKOMynmz
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +7 FChKX8meu1ds 2026-11-09 9/450 2026-11-12 10:03 by HajghKOMynmz
[考研] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +8 cqv1zKnzd7hr 2026-11-09 12/600 2026-11-12 09:32 by HajghKOMynmz
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 gRND4NVAZ8VG 2026-11-11 3/150 2026-11-12 07:42 by HajghKOMynmz
[硕博家园] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 G2rhSvqvhNzl 2026-11-10 5/250 2026-11-12 06:14 by 9fOTqj074tIg
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 C6CRn66RYYXS 2026-11-10 5/250 2026-11-12 06:03 by 9fOTqj074tIg
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 FChKX8meu1ds 2026-11-09 7/350 2026-11-12 05:30 by 9fOTqj074tIg
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 FChKX8meu1ds 2026-11-09 8/400 2026-11-12 05:30 by 9fOTqj074tIg
[教师之家] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +5 FChKX8meu1ds 2026-11-09 10/500 2026-11-12 05:19 by 9fOTqj074tIg
[基金申请] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 FChKX8meu1ds 2026-11-09 7/350 2026-11-12 05:19 by 9fOTqj074tIg
[教师之家] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +6 cqv1zKnzd7hr 2026-11-09 7/350 2026-11-12 00:44 by 9fOTqj074tIg
信息提示
关闭
请填处理意见
关闭