新手小白文件读写求助

ssy · 发表于 2023-2-19 09:36:52

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 一行的代码
万分感谢

li913 · 发表于 2023-2-19 15:57:23

(DB(KK),KK=K,KP2) 这是一个隐循环。读取（kp2-k+1）个数据，存入数组db中（位置从k开始存储）

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