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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 求助
152/2返回列表上一页12
查看: 861  |  回复: 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
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭