24小时热门版块排行榜

返回列表

海饼干01

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 4
帖子: 2
在线: 2.3小时
虫号: 6897906
注册: 2017-07-04
专业: 机械动力学

[求助] fortran直接读取文件已有1人参与

求助各位大神，有一个文本文件，我想循环读取文件，比如要从2到5行，12到15行的数据，以此类推

发自小木虫Android客户端

回复此楼

» 猜你喜欢

广西大学-广州大学招聘博士后欢迎广大优秀人才！！！已经有10人回复
闲聊已经有3人回复
江苏省自然基金什么时候出结果已经有4人回复
如何查询2026年获批项目名称？已经有3人回复
两块石头已经有10人回复
科研人应该花精力去思考如何解决问题，而不是去凝练问题已经有19人回复
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急已经有15人回复
面上没中，邀请各位路过的虫友分析一下分数已经有13人回复
初秋的晨风已经有6人回复
Ei源刊怎么投已经有4人回复

莫愁前路无知己，天下谁人不识君

1楼 2017-07-04 16:39:46

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

rex0707

新虫 (初入文坛)

应助: 1 (幼儿园)
金币: 3
帖子: 1
在线: 28分钟
虫号: 6296045
注册: 2017-04-11

【答案】应助回帖

★
感谢参与，应助指数 +1
xzhdty: 金币+1, 感谢参与 2017-07-05 12:47:16

INTEGER,PARAMETER :: SkipLine ! how many lines you want to skip, in your case SkipLine = 12-2 = 10
INTEGER :: Line1 ! in your case Line1 = 2
INTEGER :: MaxLine ! how many lines in your file

DO i = Line1 : MaxLine : SkipLine
DO j = i : ReadNLine
READ(UNIT,*) A(j)
ENDDO
ENDDO

????????????????????

赞一下(2人)