Fortran Coder

查看: 2551|回复: 1

[文件读写] 新手小白文件读写求助

[复制链接]

13

帖子

6

主题

0

精华

入门

F 币
59 元
贡献
22 点
发表于 2023-2-19 09:36:52 | 显示全部楼层 |阅读模式
5F 币
DO K=1,NCOEFF,3
        KP2 = MIN(K+2,NCOEFF)
        READ(*,*,IOSTAT = IN)(DB(KK),KK=K,KP2)
        IF(IN. NE. 0)STOP ' Error reading 1st set of coeffs'
      ENDDO
DOUBLE PRECISION  DB(3000)
DOUBLE  KK , K
INTEGER KP2
读取数据的格式如图

希望大佬解读一下,尤其是READ 一行的代码
万分感谢








SharedScreenshot.jpg

790

帖子

2

主题

0

精华

大宗师

F 币
3765 元
贡献
2255 点
发表于 2023-2-19 15:57:23 | 显示全部楼层
(DB(KK),KK=K,KP2) 这是一个隐循环。读取 (kp2-k+1)个数据,存入数组db中(位置从k开始存储)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-3-28 23:31

Powered by Tencent X3.4

© 2013-2024 Tencent

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