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 PRECISIONDB(3000)
DOUBLEKK , K
INTEGER KP2
读取数据的格式如图
http://bbs.fcode.cn/data/attachment/forum/202302/15/151552twbnno70yy7ngi7b.jpg
希望大佬解读一下，尤其是READ 一行的代码
万分感谢











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

(DB(KK),KK=K,KP2) 这是一个隐循环。读取 （kp2-k+1）个数据，存入数组db中（位置从k开始存储）
页: [1]
查看完整版本: 新手小白文件读写求助