Fortran Coder

查看: 472|回复: 2

[输入输出] 数据读取有重复,求大家指导

[复制链接]

4

帖子

2

主题

0

精华

入门

F 币
41 元
贡献
19 点
发表于 2018-4-16 11:46:39 | 显示全部楼层 |阅读模式
求助各位大佬:我一共需要读入10个数据,先读取前7个(GroupID、Policy...VolOrFlow),做一次判断之后,读取7个空(7个aVar),再接着读取剩余的3个数据(Seep、MaxQ、LakeQ)。前7个数据读取正常,但是后3个数据读取的是第7、8、9位置的数据(而不是预想的8、9、10位置的数据),这是为啥呢?
[KI`4(`$Z0%L612_MMMTF6N.png
MTXGTDT(DM[B18_}2IFGPLL.jpg
S{J2J3`O32J869]4W598~~U.png
回复

使用道具 举报

104

帖子

0

主题

0

精华

版主

World Analyser

F 币
98 元
贡献
181 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
发表于 2018-4-16 12:48:51 | 显示全部楼层
根据前面的数据判断后面是否读取,有个投机取巧的办法:

[Fortran] 纯文本查看 复制代码
  character(len=80) c
  integer :: a(10) = -999 , j , is
  c = "1 2 1 4 5 6 7 8 9 10" !//有10个数
  read( c , * ) a(:7) , ( a(8:),j=1,Is(a(3)==1,1,0) )!//如果a(3)==1,则读10个数
  write(*,*) a
  
  a = -999
  c = "1 2 0 4 5 6 7"!//只有7个数
  read( c , * ) a(:7) , ( a(8:),j=1,Is(a(3)==1,1,0) )!//如果a(3)/=1,则只读7个。
  write(*,*) a
end

Integer Function Is( b , t ,f )!//如果b为真,返回t,否则返回f。类似于C语言的 a ? b : c
  logical :: b
  integer :: t , f
  Is = f
  if( b ) Is = t  
End Function Is

4

帖子

2

主题

0

精华

入门

F 币
41 元
贡献
19 点
 楼主| 发表于 2018-4-16 14:58:05 | 显示全部楼层
非常感谢您的回复,您提供的方法可以帮助我解决眼下的问题了。我看的源码里面有很多地方都是像上面那样写的,您对这种写法和运行后出现的错误有什么见解呢?期待您的回复
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2018-12-12 15:00

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表