新手小白文件读写求助

ssy

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

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