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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 求助
汕头大学海洋科学接受调剂
152/2返回列表上一页12
查看: 974  |  回复: 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
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料工程281还有调剂机会吗 +32 xaw. 2026-04-11 33/1650 2026-04-13 15:21 by 张zhihao
[考研] 考研二轮调剂 +10 故人?? 2026-04-09 10/500 2026-04-13 09:55 by szhize
[考研] 322求调剂，08工科 +4 今天是个小号 2026-04-08 4/200 2026-04-13 00:20 by baobaoye
[硕博家园] 新一代电子信息294求调剂 不挑学校 +7 Ytyt11 2026-04-09 8/400 2026-04-12 16:57 by ajpv风雷
[考研] 291求调剂 +11 关忆北. 2026-04-09 12/600 2026-04-12 10:32 by 逆水乘风
[考研] 调剂 +10 月@163.com 2026-04-11 10/500 2026-04-12 09:14 by zhouyuwinner
[考研] 一志愿郑州大学 22408 305分求调剂 +5 安小满zzz 2026-04-08 5/250 2026-04-12 00:41 by 蓝云思雨
[考研] 267求调剂 +8 再忙也要吃饭啊 2026-04-09 8/400 2026-04-11 21:42 by cfdbai
[考研] 求调剂 +11 翩翩一书生 2026-04-09 11/550 2026-04-11 19:57 by 逆水乘风
[考研] 085400 328分 求调剂 +10 喂你一个大橙子 2026-04-09 14/700 2026-04-11 19:53 by lqspecial
[考研] 297求调剂 +9 Kwgyz 2026-04-09 9/450 2026-04-11 10:09 by zhq0425
[考研] 一志愿华南理工大学331分材料求调剂 +9 天下ww 2026-04-09 9/450 2026-04-10 22:58 by Ftglcn90
[考研] 本科西工大 324求调剂 +4 wysyjs25 2026-04-10 4/200 2026-04-10 20:00 by 来看流星雨10
[考研] 284求调剂 +7 让我上岸吧阿西 2026-04-09 7/350 2026-04-09 18:59 by haironglove
[考研] 265求调剂 +4 风说她早忘了 2026-04-07 4/200 2026-04-09 13:59 by only周
[考研] 283电子信息求调剂 +4 三石WL 2026-04-08 4/200 2026-04-09 10:21 by wp06
[考研] 275 求调剂 +8 Lei812514 2026-04-07 8/400 2026-04-08 12:46 by chemisry
[考研] 323求调剂 +3 林zlu 2026-04-07 4/200 2026-04-07 23:21 by lbsjt
[考研] 计算机11408 287 求调剂 +3 LiLe5 2026-04-07 3/150 2026-04-07 23:15 by shanqishi
[考研] 081200-11408-367学硕求调剂 +4 1_2_3111 2026-04-06 4/200 2026-04-07 08:13 by jp9609
信息提示
关闭
请填处理意见
关闭